/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / UTI / S-U / Scheduler.cpt / Scheduler.bas

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 63 68 65 64 75 | 6c 65 72 2e 62 61 73 00 |..Schedu|ler.bas.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 00 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 2e 94 00 | 00 01 5c 9b 3a 2b 67 9b |........|..\.:+g.|
|00000060| 3a 2b 67 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |:+g.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8e ac 00 00 |........|........|
|00000080| 52 45 4d 20 47 65 6e 65 | 72 69 63 20 53 63 68 65 |REM Gene|ric Sche|
|00000090| 64 75 6c 69 6e 67 20 70 | 72 6f 67 72 61 6d 20 0d |duling p|rogram .|
|000000a0| 52 45 4d 20 57 72 69 74 | 74 65 6e 20 35 2f 37 2f |REM Writ|ten 5/7/|
|000000b0| 38 36 0d 52 45 4d 20 62 | 79 20 50 68 69 6c 20 4a |86.REM b|y Phil J|
|000000c0| 75 72 67 65 6e 73 6f 6e | 20 0d 52 45 4d 20 43 6f |urgenson| .REM Co|
|000000d0| 6d 70 75 2d 53 65 72 76 | 65 20 49 44 20 37 31 31 |mpu-Serv|e ID 711|
|000000e0| 30 36 2c 31 35 35 0d 52 | 45 4d 20 47 45 6e 69 65 |06,155.R|EM GEnie|
|000000f0| 20 4d 61 69 6c 20 50 4a | 55 52 47 45 4e 53 4f 4e | Mail PJ|URGENSON|
|00000100| 0d 52 45 4d 20 61 62 73 | 6f 6c 75 74 65 6c 79 20 |.REM abs|olutely |
|00000110| 66 72 65 65 20 69 66 20 | 79 6f 75 20 63 61 6e 20 |free if |you can |
|00000120| 75 73 65 20 69 74 21 0d | 52 45 4d 20 63 72 65 61 |use it!.|REM crea|
|00000130| 74 65 64 20 77 69 74 68 | 20 5a 42 41 53 49 43 20 |ted with| ZBASIC |
|00000140| 63 6f 6d 70 69 6c 65 72 | 20 62 79 20 5a 65 64 63 |compiler| by Zedc|
|00000150| 6f 72 2c 20 49 6e 63 2e | 0d 52 45 4d 20 70 6f 72 |or, Inc.|.REM por|
|00000160| 74 69 6f 6e 73 20 6f 66 | 20 74 68 65 20 72 65 73 |tions of| the res|
|00000170| 75 6c 74 69 6e 67 20 6f | 62 6a 65 63 74 20 63 6f |ulting o|bject co|
|00000180| 64 65 0d 52 45 4d 20 61 | 72 65 20 63 6f 70 79 72 |de.REM a|re copyr|
|00000190| 69 67 68 74 65 64 20 28 | 63 29 20 62 79 20 5a 65 |ighted (|c) by Ze|
|000001a0| 64 63 6f 72 2c 20 49 6e | 63 2e 0d 44 45 46 20 4f |dcor, In|c..DEF O|
|000001b0| 50 45 4e 20 22 44 41 54 | 41 4a 55 52 47 22 0d 44 |PEN "DAT|AJURG".D|
|000001c0| 45 46 20 4d 4f 55 53 45 | 20 31 0d 52 45 4d 0d 52 |EF MOUSE| 1.REM.R|
|000001d0| 45 4d 09 64 69 6d 65 6e | 73 69 6f 6e 20 6e 65 65 |EM.dimen|sion nee|
|000001e0| 64 65 64 20 61 72 72 61 | 79 73 0d 52 45 4d 0d 44 |ded arra|ys.REM.D|
|000001f0| 49 4d 20 42 6f 78 74 69 | 74 6c 65 24 28 34 29 0d |IM Boxti|tle$(4).|
|00000200| 44 49 4d 20 54 65 6d 70 | 24 28 31 38 30 29 0d 44 |DIM Temp|$(180).D|
|00000210| 49 4d 20 44 61 79 6e 75 | 6d 28 35 29 0d 44 49 4d |IM Daynu|m(5).DIM|
|00000220| 20 53 6c 6f 74 24 28 31 | 30 2c 34 29 0d 44 49 4d | Slot$(1|0,4).DIM|
|00000230| 20 44 61 79 24 28 35 29 | 0d 44 49 4d 20 54 69 6d | Day$(5)|.DIM Tim|
|00000240| 65 73 6c 6f 74 24 28 33 | 36 29 0d 44 49 4d 20 48 |eslot$(3|6).DIM H|
|00000250| 72 24 28 31 30 29 0d 44 | 49 4d 20 4d 6e 24 28 34 |r$(10).D|IM Mn$(4|
|00000260| 29 0d 44 49 4d 20 44 61 | 79 73 6c 6f 74 24 28 35 |).DIM Da|yslot$(5|
|00000270| 2c 33 36 29 0d 44 49 4d | 20 4d 6f 6e 74 68 24 28 |,36).DIM| Month$(|
|00000280| 31 32 29 0d 44 49 4d 20 | 44 61 79 73 28 31 32 29 |12).DIM |Days(12)|
|00000290| 0d 44 49 4d 20 4d 6f 24 | 28 35 29 0d 42 52 45 41 |.DIM Mo$|(5).BREA|
|000002a0| 4b 20 4f 4e 0d 52 45 4d | 20 20 67 65 74 20 72 69 |K ON.REM|  get ri|
|000002b0| 64 20 6f 66 20 74 68 65 | 20 6d 65 6e 75 73 0d 52 |d of the| menus.R|
|000002c0| 45 4d 0d 57 49 4e 44 4f | 57 20 4f 46 46 0d 4d 45 |EM.WINDO|W OFF.ME|
|000002d0| 4e 55 20 32 2c 30 2c 30 | 2c 22 22 0d 4d 45 4e 55 |NU 2,0,0|,"".MENU|
|000002e0| 20 33 2c 30 2c 30 2c 22 | 22 0d 4d 45 4e 55 20 34 | 3,0,0,"|".MENU 4|
|000002f0| 2c 30 2c 30 2c 22 22 0d | 4d 45 4e 55 20 35 2c 30 |,0,0,"".|MENU 5,0|
|00000300| 2c 30 2c 22 22 0d 52 45 | 4d 0d 52 45 4d 20 67 65 |,0,"".RE|M.REM ge|
|00000310| 6e 65 72 69 63 20 69 6e | 69 74 69 61 6c 69 7a 61 |neric in|itializa|
|00000320| 74 69 6f 6e 20 2d 20 64 | 61 79 73 20 6f 66 20 74 |tion - d|ays of t|
|00000330| 68 65 20 77 65 65 6b 0d | 52 45 4d 0d 46 4f 52 20 |he week.|REM.FOR |
|00000340| 49 6e 64 65 78 20 3d 20 | 31 20 54 4f 20 35 0d 09 |Index = |1 TO 5..|
|00000350| 52 45 41 44 20 44 61 79 | 24 28 49 6e 64 65 78 29 |READ Day|$(Index)|
|00000360| 0d 4e 45 58 54 20 49 6e | 64 65 78 0d 44 41 54 41 |.NEXT In|dex.DATA|
|00000370| 20 22 4d 6f 6e 64 61 79 | 22 2c 22 54 75 65 73 64 | "Monday|","Tuesd|
|00000380| 61 79 22 2c 22 57 65 64 | 6e 65 73 64 61 79 22 2c |ay","Wed|nesday",|
|00000390| 22 54 68 75 72 73 64 61 | 79 22 2c 22 46 72 69 64 |"Thursda|y","Frid|
|000003a0| 61 79 22 0d 52 45 4d 0d | 52 45 4d 0d 52 45 4d 20 |ay".REM.|REM.REM |
|000003b0| 6d 6f 6e 74 68 73 20 74 | 6f 20 66 69 6c 6c 20 61 |months t|o fill a|
|000003c0| 72 72 61 79 0d 52 45 4d | 0d 46 4f 52 20 49 6e 64 |rray.REM|.FOR Ind|
|000003d0| 65 78 20 3d 20 31 20 54 | 4f 20 31 32 0d 09 52 45 |ex = 1 T|O 12..RE|
|000003e0| 41 44 20 4d 6f 6e 74 68 | 24 28 49 6e 64 65 78 29 |AD Month|$(Index)|
|000003f0| 2c 44 61 79 73 28 49 6e | 64 65 78 29 0d 4e 45 58 |,Days(In|dex).NEX|
|00000400| 54 20 49 6e 64 65 78 0d | 44 41 54 41 20 22 4a 61 |T Index.|DATA "Ja|
|00000410| 6e 75 61 72 79 22 2c 33 | 31 2c 22 46 65 62 72 75 |nuary",3|1,"Febru|
|00000420| 61 72 79 22 2c 32 38 2c | 22 4d 61 72 63 68 22 2c |ary",28,|"March",|
|00000430| 33 31 2c 22 41 70 72 69 | 6c 22 2c 33 30 2c 22 4d |31,"Apri|l",30,"M|
|00000440| 61 79 22 2c 33 31 2c 22 | 4a 75 6e 65 22 2c 33 30 |ay",31,"|June",30|
|00000450| 0d 44 41 54 41 20 22 4a | 75 6c 79 22 2c 33 31 2c |.DATA "J|uly",31,|
|00000460| 22 41 75 67 75 73 74 22 | 2c 33 31 2c 22 53 65 70 |"August"|,31,"Sep|
|00000470| 74 65 6d 62 65 72 22 2c | 33 30 2c 22 4f 63 74 6f |tember",|30,"Octo|
|00000480| 62 65 72 22 2c 33 31 2c | 22 4e 6f 76 65 6d 62 65 |ber",31,|"Novembe|
|00000490| 72 22 2c 33 30 0d 44 41 | 54 41 20 22 44 65 63 65 |r",30.DA|TA "Dece|
|000004a0| 6d 62 65 72 22 2c 33 31 | 0d 52 45 4d 0d 52 45 4d |mber",31|.REM.REM|
|000004b0| 20 61 72 72 61 79 20 66 | 6f 72 20 64 61 69 6c 79 | array f|or daily|
|000004c0| 20 64 61 74 61 0d 52 45 | 4d 0d 4d 6e 24 28 31 29 | data.RE|M.Mn$(1)|
|000004d0| 20 3d 20 22 3a 30 30 22 | 3a 4d 6e 24 28 32 29 20 | = ":00"|:Mn$(2) |
|000004e0| 3d 20 22 3a 31 35 22 3a | 4d 6e 24 28 33 29 20 3d |= ":15":|Mn$(3) =|
|000004f0| 20 22 3a 33 30 22 3a 4d | 6e 24 28 34 29 20 3d 20 | ":30":M|n$(4) = |
|00000500| 22 3a 34 35 22 0d 46 4f | 52 20 49 6e 64 65 78 20 |":45".FO|R Index |
|00000510| 3d 20 31 20 54 4f 20 35 | 0d 09 48 72 24 28 49 6e |= 1 TO 5|..Hr$(In|
|00000520| 64 65 78 29 20 3d 20 53 | 54 52 24 28 49 6e 64 65 |dex) = S|TR$(Inde|
|00000530| 78 20 2b 20 37 29 0d 4e | 45 58 54 20 49 6e 64 65 |x + 7).N|EXT Inde|
|00000540| 78 0d 46 4f 52 20 49 6e | 64 65 78 20 3d 20 36 20 |x.FOR In|dex = 6 |
|00000550| 54 4f 20 31 31 0d 09 48 | 72 24 28 49 6e 64 65 78 |TO 11..H|r$(Index|
|00000560| 29 20 3d 20 53 54 52 24 | 28 49 6e 64 65 78 20 2d |) = STR$|(Index -|
|00000570| 20 35 29 0d 4e 45 58 54 | 20 49 6e 64 65 78 0d 52 | 5).NEXT| Index.R|
|00000580| 45 4d 20 73 65 74 20 75 | 70 20 74 68 65 20 33 36 |EM set u|p the 36|
|00000590| 20 64 61 69 6c 79 20 74 | 69 6d 65 73 0d 46 4f 52 | daily t|imes.FOR|
|000005a0| 20 49 6e 64 65 78 20 3d | 20 31 20 54 4f 20 31 30 | Index =| 1 TO 10|
|000005b0| 0d 09 46 4f 52 20 53 75 | 62 69 6e 64 65 78 20 3d |..FOR Su|bindex =|
|000005c0| 20 31 20 54 4f 20 34 0d | 09 09 53 6c 6f 74 24 28 | 1 TO 4.|..Slot$(|
|000005d0| 49 6e 64 65 78 2c 53 75 | 62 69 6e 64 65 78 29 20 |Index,Su|bindex) |
|000005e0| 3d 20 48 72 24 28 49 6e | 64 65 78 29 20 2b 20 4d |= Hr$(In|dex) + M|
|000005f0| 6e 24 28 53 75 62 69 6e | 64 65 78 29 0d 09 4e 45 |n$(Subin|dex)..NE|
|00000600| 58 54 20 53 75 62 69 6e | 64 65 78 0d 4e 45 58 54 |XT Subin|dex.NEXT|
|00000610| 20 49 6e 64 65 78 0d 46 | 4f 52 20 49 6e 64 65 78 | Index.F|OR Index|
|00000620| 20 3d 20 31 20 54 4f 20 | 34 0d 09 54 69 6d 65 73 | = 1 TO |4..Times|
|00000630| 6c 6f 74 24 28 49 6e 64 | 65 78 29 20 3d 20 53 6c |lot$(Ind|ex) = Sl|
|00000640| 6f 74 24 28 31 2c 49 6e | 64 65 78 29 0d 4e 45 58 |ot$(1,In|dex).NEX|
|00000650| 54 20 49 6e 64 65 78 0d | 46 4f 52 20 49 6e 64 65 |T Index.|FOR Inde|
|00000660| 78 20 3d 20 35 20 54 4f | 20 38 0d 09 54 69 6d 65 |x = 5 TO| 8..Time|
|00000670| 73 6c 6f 74 24 28 49 6e | 64 65 78 29 20 3d 20 53 |slot$(In|dex) = S|
|00000680| 6c 6f 74 24 28 32 2c 49 | 6e 64 65 78 20 2d 20 34 |lot$(2,I|ndex - 4|
|00000690| 29 0d 4e 45 58 54 20 49 | 6e 64 65 78 0d 46 4f 52 |).NEXT I|ndex.FOR|
|000006a0| 20 49 6e 64 65 78 20 3d | 20 39 20 54 4f 20 31 32 | Index =| 9 TO 12|
|000006b0| 0d 09 54 69 6d 65 73 6c | 6f 74 24 28 49 6e 64 65 |..Timesl|ot$(Inde|
|000006c0| 78 29 20 3d 20 53 6c 6f | 74 24 28 33 2c 49 6e 64 |x) = Slo|t$(3,Ind|
|000006d0| 65 78 20 2d 20 38 29 0d | 4e 45 58 54 20 49 6e 64 |ex - 8).|NEXT Ind|
|000006e0| 65 78 0d 46 4f 52 20 49 | 6e 64 65 78 20 3d 20 31 |ex.FOR I|ndex = 1|
|000006f0| 33 20 54 4f 20 31 36 0d | 09 54 69 6d 65 73 6c 6f |3 TO 16.|.Timeslo|
|00000700| 74 24 28 49 6e 64 65 78 | 29 20 3d 20 53 6c 6f 74 |t$(Index|) = Slot|
|00000710| 24 28 34 2c 49 6e 64 65 | 78 20 2d 20 31 32 29 0d |$(4,Inde|x - 12).|
|00000720| 4e 45 58 54 20 49 6e 64 | 65 78 0d 46 4f 52 20 49 |NEXT Ind|ex.FOR I|
|00000730| 6e 64 65 78 20 3d 20 31 | 37 20 54 4f 20 32 30 0d |ndex = 1|7 TO 20.|
|00000740| 09 54 69 6d 65 73 6c 6f | 74 24 28 49 6e 64 65 78 |.Timeslo|t$(Index|
|00000750| 29 20 3d 20 53 6c 6f 74 | 24 28 35 2c 49 6e 64 65 |) = Slot|$(5,Inde|
|00000760| 78 20 2d 20 31 36 29 0d | 4e 45 58 54 20 49 6e 64 |x - 16).|NEXT Ind|
|00000770| 65 78 0d 46 4f 52 20 49 | 6e 64 65 78 20 3d 20 32 |ex.FOR I|ndex = 2|
|00000780| 31 20 54 4f 20 32 34 0d | 09 54 69 6d 65 73 6c 6f |1 TO 24.|.Timeslo|
|00000790| 74 24 28 49 6e 64 65 78 | 29 20 3d 20 53 6c 6f 74 |t$(Index|) = Slot|
|000007a0| 24 28 36 2c 49 6e 64 65 | 78 20 2d 20 32 30 29 0d |$(6,Inde|x - 20).|
|000007b0| 4e 45 58 54 20 49 6e 64 | 65 78 0d 46 4f 52 20 49 |NEXT Ind|ex.FOR I|
|000007c0| 6e 64 65 78 20 3d 20 32 | 35 20 54 4f 20 32 38 0d |ndex = 2|5 TO 28.|
|000007d0| 09 54 69 6d 65 73 6c 6f | 74 24 28 49 6e 64 65 78 |.Timeslo|t$(Index|
|000007e0| 29 20 3d 20 53 6c 6f 74 | 24 28 37 2c 49 6e 64 65 |) = Slot|$(7,Inde|
|000007f0| 78 20 2d 20 32 34 29 0d | 4e 45 58 54 20 49 6e 64 |x - 24).|NEXT Ind|
|00000800| 65 78 0d 46 4f 52 20 49 | 6e 64 65 78 20 3d 20 32 |ex.FOR I|ndex = 2|
|00000810| 39 20 54 4f 20 33 32 0d | 09 54 69 6d 65 73 6c 6f |9 TO 32.|.Timeslo|
|00000820| 74 24 28 49 6e 64 65 78 | 29 20 3d 20 53 6c 6f 74 |t$(Index|) = Slot|
|00000830| 24 28 38 2c 49 6e 64 65 | 78 20 2d 20 32 38 29 0d |$(8,Inde|x - 28).|
|00000840| 4e 45 58 54 20 49 6e 64 | 65 78 0d 46 4f 52 20 49 |NEXT Ind|ex.FOR I|
|00000850| 6e 64 65 78 20 3d 20 33 | 33 20 54 4f 20 33 36 0d |ndex = 3|3 TO 36.|
|00000860| 09 54 69 6d 65 73 6c 6f | 74 24 28 49 6e 64 65 78 |.Timeslo|t$(Index|
|00000870| 29 20 3d 20 53 6c 6f 74 | 24 28 39 2c 49 6e 64 65 |) = Slot|$(9,Inde|
|00000880| 78 20 2d 20 33 32 29 0d | 4e 45 58 54 20 49 6e 64 |x - 32).|NEXT Ind|
|00000890| 65 78 0d 52 45 4d 0d 52 | 45 4d 20 74 75 72 6e 20 |ex.REM.R|EM turn |
|000008a0| 6f 66 66 20 65 72 72 6f | 72 20 74 72 61 70 70 69 |off erro|r trappi|
|000008b0| 6e 67 20 2d 20 64 6f 20 | 69 74 20 69 6e 20 74 68 |ng - do |it in th|
|000008c0| 65 20 70 72 6f 67 72 61 | 6d 0d 53 74 61 74 65 20 |e progra|m.State |
|000008d0| 3d 20 31 0d 4f 4e 20 45 | 52 52 4f 52 20 47 4f 53 |= 1.ON E|RROR GOS|
|000008e0| 55 42 20 36 35 35 33 35 | 0d 52 45 4d 20 72 65 61 |UB 65535|.REM rea|
|000008f0| 64 20 65 78 69 73 74 69 | 6e 67 20 64 61 74 61 20 |d existi|ng data |
|00000900| 66 69 6c 65 2c 20 69 66 | 20 70 72 65 73 65 6e 74 |file, if| present|
|00000910| 0d 4f 50 45 4e 20 22 49 | 22 2c 31 2c 22 73 63 68 |.OPEN "I|",1,"sch|
|00000920| 65 64 61 74 61 22 0d 49 | 46 20 45 52 52 4f 52 20 |edata".I|F ERROR |
|00000930| 3c 3e 20 30 20 47 4f 53 | 55 42 20 22 73 63 68 65 |<> 0 GOS|UB "sche|
|00000940| 64 65 72 72 22 3a 47 4f | 54 4f 20 22 73 68 75 74 |derr":GO|TO "shut|
|00000950| 66 69 6c 65 22 0d 49 4e | 50 55 54 20 23 31 2c 4d |file".IN|PUT #1,M|
|00000960| 6f 6e 65 24 2c 44 6f 6e | 65 24 2c 59 6f 6e 65 24 |one$,Don|e$,Yone$|
|00000970| 2c 4d 74 77 6f 24 2c 44 | 74 77 6f 24 2c 59 74 77 |,Mtwo$,D|two$,Ytw|
|00000980| 6f 24 0d 46 4f 52 20 49 | 6e 64 65 78 20 3d 20 31 |o$.FOR I|ndex = 1|
|00000990| 20 54 4f 20 35 0d 09 46 | 4f 52 20 53 75 62 69 6e | TO 5..F|OR Subin|
|000009a0| 64 65 78 20 3d 20 31 20 | 54 4f 20 33 36 0d 09 09 |dex = 1 |TO 36...|
|000009b0| 49 4e 50 55 54 20 23 31 | 2c 44 61 79 73 6c 6f 74 |INPUT #1|,Dayslot|
|000009c0| 24 28 49 6e 64 65 78 2c | 53 75 62 69 6e 64 65 78 |$(Index,|Subindex|
|000009d0| 29 0d 09 4e 45 58 54 20 | 53 75 62 69 6e 64 65 78 |)..NEXT |Subindex|
|000009e0| 0d 4e 45 58 54 20 49 6e | 64 65 78 0d 22 73 68 75 |.NEXT In|dex."shu|
|000009f0| 74 66 69 6c 65 22 0d 43 | 4c 4f 53 45 20 23 31 0d |tfile".C|LOSE #1.|
|00000a00| 52 45 4d 20 73 65 74 20 | 63 6f 6f 72 64 69 6e 61 |REM set |coordina|
|00000a10| 74 65 73 20 74 6f 20 63 | 6f 72 72 65 73 70 6f 6e |tes to c|orrespon|
|00000a20| 64 20 77 69 74 68 20 4d | 61 63 69 6e 74 6f 73 68 |d with M|acintosh|
|00000a30| 20 70 69 78 65 6c 20 63 | 6f 6f 72 64 73 0d 43 4f | pixel c|oords.CO|
|00000a40| 4f 52 44 49 4e 41 54 45 | 20 35 31 31 2c 33 34 31 |ORDINATE| 511,341|
|00000a50| 0d 43 4f 4f 52 44 49 4e | 41 54 45 20 57 49 4e 44 |.COORDIN|ATE WIND|
|00000a60| 4f 57 0d 52 45 4d 20 64 | 69 73 70 6c 61 79 20 61 |OW.REM d|isplay a|
|00000a70| 20 63 6f 70 79 72 69 67 | 68 74 20 6e 6f 74 69 63 | copyrig|ht notic|
|00000a80| 65 0d 22 63 6f 70 79 72 | 69 67 68 74 22 0d 09 57 |e."copyr|ight"..W|
|00000a90| 49 4e 44 4f 57 20 32 2c | 22 22 2c 28 20 31 30 35 |INDOW 2,|"",( 105|
|00000aa0| 2c 20 38 30 29 2d 28 20 | 33 38 35 2c 20 32 36 30 |, 80)-( |385, 260|
|00000ab0| 29 2c 20 32 0d 09 43 41 | 4c 4c 20 4d 4f 56 45 54 |), 2..CA|LL MOVET|
|00000ac0| 4f 28 31 30 30 2c 32 30 | 29 0d 09 54 45 58 54 20 |O(100,20|)..TEXT |
|00000ad0| 30 2c 31 32 2c 34 2c 31 | 0d 09 50 52 49 4e 54 20 |0,12,4,1|..PRINT |
|00000ae0| 22 53 63 68 65 64 75 6c | 65 72 22 0d 09 54 45 58 |"Schedul|er"..TEX|
|00000af0| 54 20 30 2c 31 32 2c 30 | 2c 31 0d 09 43 41 4c 4c |T 0,12,0|,1..CALL|
|00000b00| 20 4d 4f 56 45 54 4f 28 | 38 30 2c 34 30 29 0d 09 | MOVETO(|80,40)..|
|00000b10| 50 52 49 4e 54 20 22 62 | 79 20 50 68 69 6c 20 4a |PRINT "b|y Phil J|
|00000b20| 75 72 67 65 6e 73 6f 6e | 22 0d 09 43 41 4c 4c 20 |urgenson|"..CALL |
|00000b30| 4d 4f 56 45 54 4f 28 36 | 35 2c 35 35 29 0d 09 54 |MOVETO(6|5,55)..T|
|00000b40| 45 58 54 20 34 2c 39 2c | 30 2c 31 0d 09 50 52 49 |EXT 4,9,|0,1..PRI|
|00000b50| 4e 54 20 22 28 43 6f 6d | 70 75 73 65 72 76 65 20 |NT "(Com|puserve |
|00000b60| 2d 20 37 31 31 30 36 2c | 31 35 35 29 22 0d 09 43 |- 71106,|155)"..C|
|00000b70| 41 4c 4c 20 4d 4f 56 45 | 54 4f 28 38 30 2c 37 30 |ALL MOVE|TO(80,70|
|00000b80| 29 0d 09 50 52 49 4e 54 | 20 22 28 47 45 6e 69 65 |)..PRINT| "(GEnie|
|00000b90| 20 2d 20 50 4a 55 52 47 | 45 4e 53 4f 4e 29 22 0d | - PJURG|ENSON)".|
|00000ba0| 09 43 41 4c 4c 20 4d 4f | 56 45 54 4f 28 34 30 2c |.CALL MO|VETO(40,|
|00000bb0| 38 35 29 0d 09 50 52 49 | 4e 54 20 22 28 53 6f 75 |85)..PRI|NT "(Sou|
|00000bc0| 72 63 65 20 63 6f 64 65 | 20 61 76 61 69 6c 61 62 |rce code| availab|
|00000bd0| 6c 65 20 6f 6e 20 72 65 | 71 75 65 73 74 29 22 0d |le on re|quest)".|
|00000be0| 09 54 45 58 54 20 30 2c | 31 32 2c 30 2c 31 0d 09 |.TEXT 0,|12,0,1..|
|00000bf0| 43 41 4c 4c 20 4d 4f 56 | 45 54 4f 28 32 30 2c 31 |CALL MOV|ETO(20,1|
|00000c00| 32 30 29 0d 09 50 52 49 | 4e 54 20 22 43 72 65 61 |20)..PRI|NT "Crea|
|00000c10| 74 65 64 20 77 69 74 68 | 20 5a 65 64 63 6f 72 20 |ted with| Zedcor |
|00000c20| 5a 42 41 53 49 43 20 43 | 6f 6d 70 69 6c 65 72 22 |ZBASIC C|ompiler"|
|00000c30| 0d 09 43 41 4c 4c 20 4d | 4f 56 45 54 4f 28 36 35 |..CALL M|OVETO(65|
|00000c40| 2c 31 34 30 29 0d 09 54 | 45 58 54 20 34 2c 39 2c |,140)..T|EXT 4,9,|
|00000c50| 30 2c 31 0d 09 50 52 49 | 4e 54 20 22 50 6f 72 74 |0,1..PRI|NT "Port|
|00000c60| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 63 6f 64 65 |ions of |the code|
|00000c70| 22 0d 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 34 |"..CALL |MOVETO(4|
|00000c80| 35 2c 31 35 35 29 0d 09 | 50 52 49 4e 54 20 22 63 |5,155)..|PRINT "c|
|00000c90| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 38 |opyright| (c) 198|
|00000ca0| 35 20 62 79 20 5a 65 64 | 63 6f 72 2c 20 49 6e 63 |5 by Zed|cor, Inc|
|00000cb0| 2e 22 0d 09 4d 4f 55 53 | 45 20 4f 4e 0d 22 6d 70 |."..MOUS|E ON."mp|
|00000cc0| 6f 6c 6c 22 0d 09 50 72 | 6f 63 65 73 73 20 3d 20 |oll"..Pr|ocess = |
|00000cd0| 4d 4f 55 53 45 28 30 29 | 0d 09 49 46 20 50 72 6f |MOUSE(0)|..IF Pro|
|00000ce0| 63 65 73 73 20 3d 20 30 | 20 54 48 45 4e 20 47 4f |cess = 0| THEN GO|
|00000cf0| 54 4f 20 22 6d 70 6f 6c | 6c 22 0d 09 4d 4f 55 53 |TO "mpol|l"..MOUS|
|00000d00| 45 20 4f 46 46 0d 09 57 | 49 4e 44 4f 57 20 43 4c |E OFF..W|INDOW CL|
|00000d10| 4f 53 45 20 32 0d 22 69 | 6e 74 72 6f 22 0d 09 52 |OSE 2."i|ntro"..R|
|00000d20| 45 4d 20 67 65 74 20 77 | 65 65 6b 6c 79 20 64 61 |EM get w|eekly da|
|00000d30| 74 65 73 2c 20 6f 72 20 | 64 69 73 70 6c 61 79 20 |tes, or |display |
|00000d40| 64 61 74 65 73 20 61 6c | 72 65 61 64 79 20 69 6e |dates al|ready in|
|00000d50| 20 64 61 74 61 20 66 69 | 6c 65 0d 09 57 49 4e 44 | data fi|le..WIND|
|00000d60| 4f 57 20 31 2c 22 22 2c | 28 20 31 30 35 2c 20 38 |OW 1,"",|( 105, 8|
|00000d70| 30 29 2d 28 20 33 38 35 | 2c 20 32 36 30 29 2c 20 |0)-( 385|, 260), |
|00000d80| 32 0d 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 33 |2..CALL |MOVETO(3|
|00000d90| 35 2c 20 32 30 29 0d 09 | 54 45 58 54 20 30 2c 31 |5, 20)..|TEXT 0,1|
|00000da0| 32 2c 30 2c 31 0d 09 50 | 52 49 4e 54 20 22 50 6c |2,0,1..P|RINT "Pl|
|00000db0| 65 61 73 65 20 65 6e 74 | 65 72 20 74 68 65 20 77 |ease ent|er the w|
|00000dc0| 65 65 6b 27 73 20 64 61 | 74 65 73 3a 22 0d 09 54 |eek's da|tes:"..T|
|00000dd0| 45 58 54 20 33 2c 31 32 | 2c 30 2c 31 0d 09 43 41 |EXT 3,12|,0,1..CA|
|00000de0| 4c 4c 20 4d 4f 56 45 54 | 4f 28 33 35 2c 20 35 30 |LL MOVET|O(35, 50|
|00000df0| 29 0d 09 50 52 49 4e 54 | 20 22 4d 6f 6e 64 61 79 |)..PRINT| "Monday|
|00000e00| 27 73 22 0d 09 43 41 4c | 4c 20 4d 4f 56 45 54 4f |'s"..CAL|L MOVETO|
|00000e10| 28 31 37 30 2c 20 35 30 | 29 0d 09 50 52 49 4e 54 |(170, 50|)..PRINT|
|00000e20| 20 22 46 72 69 64 61 79 | 27 73 22 0d 09 43 41 4c | "Friday|'s"..CAL|
|00000e30| 4c 20 4d 4f 56 45 54 4f | 28 34 35 2c 20 36 35 29 |L MOVETO|(45, 65)|
|00000e40| 0d 09 50 52 49 4e 54 20 | 22 44 61 74 65 22 0d 09 |..PRINT |"Date"..|
|00000e50| 43 41 4c 4c 20 4d 4f 56 | 45 54 4f 28 31 38 30 2c |CALL MOV|ETO(180,|
|00000e60| 20 36 35 29 0d 09 50 52 | 49 4e 54 20 22 44 61 74 | 65)..PR|INT "Dat|
|00000e70| 65 22 0d 09 43 41 4c 4c | 20 4d 4f 56 45 54 4f 28 |e"..CALL| MOVETO(|
|00000e80| 32 35 2c 38 35 29 0d 09 | 50 52 49 4e 54 20 22 28 |25,85)..|PRINT "(|
|00000e90| 4d 4d 2f 44 44 2f 59 59 | 29 22 0d 09 43 41 4c 4c |MM/DD/YY|)"..CALL|
|00000ea0| 20 4d 4f 56 45 54 4f 28 | 31 36 35 2c 38 35 29 0d | MOVETO(|165,85).|
|00000eb0| 09 50 52 49 4e 54 20 22 | 28 4d 4d 2f 44 44 2f 59 |.PRINT "|(MM/DD/Y|
|00000ec0| 59 29 22 0d 09 45 44 49 | 54 20 46 49 45 4c 44 20 |Y)"..EDI|T FIELD |
|00000ed0| 20 31 2c 4d 6f 6e 65 24 | 2c 28 20 31 30 2c 20 31 | 1,Mone$|,( 10, 1|
|00000ee0| 30 35 29 2d 28 20 33 35 | 2c 20 31 32 30 29 2c 20 |05)-( 35|, 120), |
|00000ef0| 33 2c 33 0d 09 43 41 4c | 4c 20 4d 4f 56 45 54 4f |3,3..CAL|L MOVETO|
|00000f00| 28 34 30 2c 31 31 37 29 | 0d 09 50 52 49 4e 54 20 |(40,117)|..PRINT |
|00000f10| 22 2f 22 0d 09 45 44 49 | 54 20 46 49 45 4c 44 20 |"/"..EDI|T FIELD |
|00000f20| 32 2c 44 6f 6e 65 24 2c | 28 35 35 2c 31 30 35 29 |2,Done$,|(55,105)|
|00000f30| 2d 28 37 35 2c 31 32 30 | 29 2c 33 2c 33 0d 09 43 |-(75,120|),3,3..C|
|00000f40| 41 4c 4c 20 4d 4f 56 45 | 54 4f 28 38 30 2c 31 31 |ALL MOVE|TO(80,11|
|00000f50| 37 29 0d 09 50 52 49 4e | 54 20 22 2f 22 0d 09 45 |7)..PRIN|T "/"..E|
|00000f60| 44 49 54 20 46 49 45 4c | 44 20 33 2c 59 6f 6e 65 |DIT FIEL|D 3,Yone|
|00000f70| 24 2c 28 39 35 2c 31 30 | 35 29 2d 28 31 31 35 2c |$,(95,10|5)-(115,|
|00000f80| 31 32 30 29 2c 33 2c 33 | 0d 09 45 44 49 54 20 46 |120),3,3|..EDIT F|
|00000f90| 49 45 4c 44 20 34 2c 4d | 74 77 6f 24 2c 28 31 34 |IELD 4,M|two$,(14|
|00000fa0| 35 2c 31 30 35 29 2d 28 | 31 36 35 2c 31 32 30 29 |5,105)-(|165,120)|
|00000fb0| 2c 33 2c 33 0d 09 43 41 | 4c 4c 20 4d 4f 56 45 54 |,3,3..CA|LL MOVET|
|00000fc0| 4f 28 31 37 30 2c 31 31 | 37 29 0d 09 50 52 49 4e |O(170,11|7)..PRIN|
|00000fd0| 54 20 22 2f 22 0d 09 45 | 44 49 54 20 46 49 45 4c |T "/"..E|DIT FIEL|
|00000fe0| 44 20 35 2c 44 74 77 6f | 24 2c 28 31 38 35 2c 31 |D 5,Dtwo|$,(185,1|
|00000ff0| 30 35 29 2d 28 32 30 35 | 2c 31 32 30 29 2c 33 2c |05)-(205|,120),3,|
|00001000| 33 0d 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 32 |3..CALL |MOVETO(2|
|00001010| 31 30 2c 31 31 37 29 0d | 09 50 52 49 4e 54 20 22 |10,117).|.PRINT "|
|00001020| 2f 22 0d 09 45 44 49 54 | 20 46 49 45 4c 44 20 36 |/"..EDIT| FIELD 6|
|00001030| 2c 59 74 77 6f 24 2c 28 | 32 32 35 2c 31 30 35 29 |,Ytwo$,(|225,105)|
|00001040| 2d 28 32 34 35 2c 31 32 | 30 29 2c 33 2c 33 0d 09 |-(245,12|0),3,3..|
|00001050| 42 55 54 54 4f 4e 20 20 | 31 2c 31 2c 22 4f 6b 61 |BUTTON  |1,1,"Oka|
|00001060| 79 22 2c 28 20 39 30 2c | 20 31 34 35 29 2d 28 20 |y",( 90,| 145)-( |
|00001070| 31 38 35 2c 20 31 36 35 | 29 2c 20 31 0d 09 4e 75 |185, 165|), 1..Nu|
|00001080| 6d 69 74 65 6d 20 3d 20 | 36 0d 09 49 74 65 6d 20 |mitem = |6..Item |
|00001090| 3d 20 31 0d 22 61 64 64 | 69 6e 74 72 6f 22 0d 09 |= 1."add|intro"..|
|000010a0| 44 49 41 4c 4f 47 20 4f | 4e 0d 09 45 44 49 54 20 |DIALOG O|N..EDIT |
|000010b0| 46 49 45 4c 44 20 49 74 | 65 6d 0d 22 70 6f 6c 6c |FIELD It|em."poll|
|000010c0| 69 6e 74 72 6f 22 0d 09 | 50 72 6f 63 65 73 73 20 |intro"..|Process |
|000010d0| 3d 20 44 49 41 4c 4f 47 | 28 30 29 0d 09 42 75 74 |= DIALOG|(0)..But|
|000010e0| 74 6f 6e 69 64 20 3d 20 | 44 49 41 4c 4f 47 28 31 |tonid = |DIALOG(1|
|000010f0| 29 0d 09 49 46 20 50 72 | 6f 63 65 73 73 20 3d 20 |)..IF Pr|ocess = |
|00001100| 30 20 54 48 45 4e 20 47 | 4f 54 4f 20 22 70 6f 6c |0 THEN G|OTO "pol|
|00001110| 6c 69 6e 74 72 6f 22 0d | 09 49 46 20 50 72 6f 63 |lintro".|.IF Proc|
|00001120| 65 73 73 20 3d 20 31 20 | 54 48 45 4e 20 47 4f 54 |ess = 1 |THEN GOT|
|00001130| 4f 20 22 67 65 74 69 6e | 74 72 6f 22 0d 09 49 46 |O "getin|tro"..IF|
|00001140| 20 50 72 6f 63 65 73 73 | 20 3d 20 32 20 54 48 45 | Process| = 2 THE|
|00001150| 4e 20 47 4f 53 55 42 20 | 22 6e 65 77 66 69 65 6c |N GOSUB |"newfiel|
|00001160| 64 22 3a 47 4f 54 4f 20 | 22 61 64 64 69 6e 74 72 |d":GOTO |"addintr|
|00001170| 6f 22 0d 09 49 46 20 28 | 50 72 6f 63 65 73 73 20 |o"..IF (|Process |
|00001180| 3d 20 36 29 20 4f 52 20 | 28 50 72 6f 63 65 73 73 |= 6) OR |(Process|
|00001190| 20 3d 20 37 29 20 54 48 | 45 4e 20 47 4f 53 55 42 | = 7) TH|EN GOSUB|
|000011a0| 20 22 6e 65 78 74 66 69 | 65 6c 64 22 3a 47 4f 54 | "nextfi|eld":GOT|
|000011b0| 4f 20 22 61 64 64 69 6e | 74 72 6f 22 0d 09 47 4f |O "addin|tro"..GO|
|000011c0| 54 4f 20 22 70 6f 6c 6c | 69 6e 74 72 6f 22 0d 09 |TO "poll|intro"..|
|000011d0| 44 49 41 4c 4f 47 20 4f | 46 46 0d 22 67 65 74 69 |DIALOG O|FF."geti|
|000011e0| 6e 74 72 6f 22 0d 09 4d | 6f 6e 65 24 20 3d 20 45 |ntro"..M|one$ = E|
|000011f0| 44 49 54 24 28 31 29 0d | 09 44 6f 6e 65 24 20 3d |DIT$(1).|.Done$ =|
|00001200| 20 45 44 49 54 24 28 32 | 29 0d 09 59 6f 6e 65 24 | EDIT$(2|)..Yone$|
|00001210| 20 3d 20 45 44 49 54 24 | 28 33 29 0d 09 4d 74 77 | = EDIT$|(3)..Mtw|
|00001220| 6f 24 20 3d 20 45 44 49 | 54 24 28 34 29 0d 09 44 |o$ = EDI|T$(4)..D|
|00001230| 74 77 6f 24 20 3d 20 45 | 44 49 54 24 28 35 29 0d |two$ = E|DIT$(5).|
|00001240| 09 59 74 77 6f 24 20 3d | 20 45 44 49 54 24 28 36 |.Ytwo$ =| EDIT$(6|
|00001250| 29 0d 09 52 45 4d 20 64 | 65 63 6f 64 65 20 75 73 |)..REM d|ecode us|
|00001260| 65 72 20 69 6e 70 75 74 | 2c 20 66 69 6c 6c 20 61 |er input|, fill a|
|00001270| 72 72 61 79 73 20 77 69 | 74 68 20 6d 6f 6e 74 68 |rrays wi|th month|
|00001280| 20 6e 61 6d 65 73 20 61 | 6e 64 20 64 61 74 65 73 | names a|nd dates|
|00001290| 20 66 6f 72 20 70 72 69 | 6e 74 6f 75 74 0d 09 4d | for pri|ntout..M|
|000012a0| 6f 31 6e 75 6d 20 3d 20 | 56 41 4c 28 4d 6f 6e 65 |o1num = |VAL(Mone|
|000012b0| 24 29 0d 09 44 61 79 31 | 6e 75 6d 20 3d 20 56 41 |$)..Day1|num = VA|
|000012c0| 4c 28 44 6f 6e 65 24 29 | 0d 09 4d 6f 32 6e 75 6d |L(Done$)|..Mo2num|
|000012d0| 20 3d 20 56 41 4c 28 4d | 74 77 6f 24 29 0d 09 44 | = VAL(M|two$)..D|
|000012e0| 61 79 32 6e 75 6d 20 3d | 20 56 41 4c 28 44 74 77 |ay2num =| VAL(Dtw|
|000012f0| 6f 24 29 0d 09 57 65 65 | 6b 24 20 3d 20 4d 6f 6e |o$)..Wee|k$ = Mon|
|00001300| 74 68 24 28 4d 6f 31 6e | 75 6d 29 20 2b 20 53 54 |th$(Mo1n|um) + ST|
|00001310| 52 24 28 44 61 79 31 6e | 75 6d 29 20 2b 20 22 20 |R$(Day1n|um) + " |
|00001320| 2d 22 20 2b 20 4d 6f 6e | 74 68 24 28 4d 6f 32 6e |-" + Mon|th$(Mo2n|
|00001330| 75 6d 29 20 2b 20 53 54 | 52 24 28 44 61 79 32 6e |um) + ST|R$(Day2n|
|00001340| 75 6d 29 0d 09 4d 61 78 | 20 3d 20 44 61 79 73 28 |um)..Max| = Days(|
|00001350| 4d 6f 31 6e 75 6d 29 0d | 09 49 6e 64 69 63 61 74 |Mo1num).|.Indicat|
|00001360| 6f 72 20 3d 20 4d 6f 31 | 6e 75 6d 0d 09 50 6f 69 |or = Mo1|num..Poi|
|00001370| 6e 74 65 72 20 3d 20 44 | 61 79 31 6e 75 6d 0d 09 |nter = D|ay1num..|
|00001380| 46 4f 52 20 49 6e 64 65 | 78 20 3d 20 31 20 54 4f |FOR Inde|x = 1 TO|
|00001390| 20 35 0d 09 09 4c 4f 4e | 47 20 49 46 20 50 6f 69 | 5...LON|G IF Poi|
|000013a0| 6e 74 65 72 20 3e 20 4d | 61 78 0d 09 09 09 50 6f |nter > M|ax....Po|
|000013b0| 69 6e 74 65 72 20 3d 20 | 31 0d 09 09 09 49 6e 64 |inter = |1....Ind|
|000013c0| 69 63 61 74 6f 72 20 3d | 20 49 6e 64 69 63 61 74 |icator =| Indicat|
|000013d0| 6f 72 20 2b 20 31 0d 09 | 09 45 4e 44 20 49 46 0d |or + 1..|.END IF.|
|000013e0| 09 09 44 61 79 6e 75 6d | 28 49 6e 64 65 78 29 20 |..Daynum|(Index) |
|000013f0| 3d 20 50 6f 69 6e 74 65 | 72 0d 09 09 4d 6f 24 28 |= Pointe|r...Mo$(|
|00001400| 49 6e 64 65 78 29 20 3d | 20 4d 6f 6e 74 68 24 28 |Index) =| Month$(|
|00001410| 49 6e 64 69 63 61 74 6f | 72 29 0d 09 09 42 6f 78 |Indicato|r)...Box|
|00001420| 74 69 74 6c 65 24 28 49 | 6e 64 65 78 29 20 3d 20 |title$(I|ndex) = |
|00001430| 44 61 79 24 28 49 6e 64 | 65 78 29 20 2b 20 22 2c |Day$(Ind|ex) + ",|
|00001440| 20 22 20 2b 20 4d 6f 24 | 28 49 6e 64 65 78 29 20 | " + Mo$|(Index) |
|00001450| 2b 20 53 54 52 24 28 44 | 61 79 6e 75 6d 28 49 6e |+ STR$(D|aynum(In|
|00001460| 64 65 78 29 29 0d 09 09 | 50 6f 69 6e 74 65 72 20 |dex))...|Pointer |
|00001470| 3d 20 50 6f 69 6e 74 65 | 72 20 2b 20 31 0d 09 4e |= Pointe|r + 1..N|
|00001480| 45 58 54 20 49 6e 64 65 | 78 0d 09 57 49 4e 44 4f |EXT Inde|x..WINDO|
|00001490| 57 20 43 4c 4f 53 45 20 | 31 0d 52 45 4d 20 6d 61 |W CLOSE |1.REM ma|
|000014a0| 69 6e 20 66 75 6e 63 74 | 69 6f 6e 20 6d 65 6e 75 |in funct|ion menu|
|000014b0| 0d 22 6d 61 69 6e 22 0d | 09 57 49 4e 44 4f 57 20 |."main".|.WINDOW |
|000014c0| 31 2c 22 22 2c 28 20 31 | 30 30 2c 20 33 35 29 2d |1,"",( 1|00, 35)-|
|000014d0| 28 20 33 37 39 2c 20 33 | 31 32 29 2c 20 34 0d 09 |( 379, 3|12), 4..|
|000014e0| 43 41 4c 4c 20 4d 4f 56 | 45 54 4f 28 38 35 2c 20 |CALL MOV|ETO(85, |
|000014f0| 32 30 29 0d 09 54 45 58 | 54 20 30 2c 31 32 2c 30 |20)..TEX|T 0,12,0|
|00001500| 2c 31 0d 09 50 52 49 4e | 54 20 22 57 65 65 6b 6c |,1..PRIN|T "Weekl|
|00001510| 79 20 53 63 68 65 64 75 | 6c 65 22 0d 09 42 55 54 |y Schedu|le"..BUT|
|00001520| 54 4f 4e 20 20 31 2c 31 | 2c 22 4d 6f 6e 64 61 79 |TON  1,1|,"Monday|
|00001530| 22 2c 28 20 31 35 2c 20 | 34 35 29 2d 28 20 39 39 |",( 15, |45)-( 99|
|00001540| 2c 20 36 32 29 2c 20 33 | 0d 09 42 55 54 54 4f 4e |, 62), 3|..BUTTON|
|00001550| 20 20 32 2c 31 2c 22 54 | 75 65 73 64 61 79 22 2c |  2,1,"T|uesday",|
|00001560| 28 20 31 35 2c 20 37 35 | 29 2d 28 20 31 30 30 2c |( 15, 75|)-( 100,|
|00001570| 20 39 30 29 2c 20 33 0d | 09 42 55 54 54 4f 4e 20 | 90), 3.|.BUTTON |
|00001580| 20 33 2c 31 2c 22 57 65 | 64 6e 65 73 64 61 79 22 | 3,1,"We|dnesday"|
|00001590| 2c 28 20 31 35 2c 20 31 | 30 35 29 2d 28 20 31 30 |,( 15, 1|05)-( 10|
|000015a0| 38 2c 20 31 32 31 29 2c | 20 33 0d 09 42 55 54 54 |8, 121),| 3..BUTT|
|000015b0| 4f 4e 20 20 34 2c 31 2c | 22 54 68 75 72 73 64 61 |ON  4,1,|"Thursda|
|000015c0| 79 22 2c 28 20 31 35 2c | 20 31 33 35 29 2d 28 20 |y",( 15,| 135)-( |
|000015d0| 31 30 39 2c 20 31 35 32 | 29 2c 20 33 0d 09 42 55 |109, 152|), 3..BU|
|000015e0| 54 54 4f 4e 20 20 35 2c | 31 2c 22 46 72 69 64 61 |TTON  5,|1,"Frida|
|000015f0| 79 22 2c 28 20 31 35 2c | 20 31 36 35 29 2d 28 20 |y",( 15,| 165)-( |
|00001600| 31 30 30 2c 20 31 38 30 | 29 2c 20 33 0d 09 42 55 |100, 180|), 3..BU|
|00001610| 54 54 4f 4e 20 20 36 2c | 53 74 61 74 65 2c 22 43 |TTON  6,|State,"C|
|00001620| 6c 65 61 72 20 4f 6c 64 | 20 44 61 74 61 22 2c 28 |lear Old| Data",(|
|00001630| 20 31 34 35 2c 20 34 35 | 29 2d 28 20 32 36 39 2c | 145, 45|)-( 269,|
|00001640| 20 36 32 29 2c 20 33 0d | 09 42 55 54 54 4f 4e 20 | 62), 3.|.BUTTON |
|00001650| 20 37 2c 31 2c 22 53 61 | 76 65 20 53 63 68 65 64 | 7,1,"Sa|ve Sched|
|00001660| 75 6c 65 22 2c 28 20 31 | 34 35 2c 20 37 35 29 2d |ule",( 1|45, 75)-|
|00001670| 28 20 32 36 35 2c 20 39 | 30 29 2c 20 33 0d 09 42 |( 265, 9|0), 3..B|
|00001680| 55 54 54 4f 4e 20 38 2c | 31 2c 22 50 72 69 6e 74 |UTTON 8,|1,"Print|
|00001690| 20 53 63 68 65 64 75 6c | 65 22 2c 28 31 34 35 2c | Schedul|e",(145,|
|000016a0| 31 30 35 29 2d 28 32 36 | 35 2c 31 32 30 29 2c 33 |105)-(26|5,120),3|
|000016b0| 0d 09 42 55 54 54 4f 4e | 20 20 39 2c 31 2c 22 51 |..BUTTON|  9,1,"Q|
|000016c0| 75 69 74 22 2c 28 20 31 | 34 35 2c 20 31 33 35 29 |uit",( 1|45, 135)|
|000016d0| 2d 28 20 32 32 30 2c 20 | 31 35 30 29 2c 20 33 0d |-( 220, |150), 3.|
|000016e0| 09 42 55 54 54 4f 4e 20 | 20 31 30 2c 31 2c 22 4f |.BUTTON | 10,1,"O|
|000016f0| 6b 61 79 22 2c 28 20 31 | 30 30 2c 20 32 32 35 29 |kay",( 1|00, 225)|
|00001700| 2d 28 20 31 38 34 2c 20 | 32 35 34 29 2c 20 31 0d |-( 184, |254), 1.|
|00001710| 09 42 75 74 74 6f 6e 69 | 64 20 3d 20 31 0d 09 4f |.Buttoni|d = 1..O|
|00001720| 6c 64 62 75 74 74 6f 6e | 20 3d 20 31 0d 09 44 49 |ldbutton| = 1..DI|
|00001730| 41 4c 4f 47 20 4f 4e 0d | 09 57 48 49 4c 45 20 42 |ALOG ON.|.WHILE B|
|00001740| 75 74 74 6f 6e 69 64 20 | 3c 3e 20 31 30 0d 09 09 |uttonid |<> 10...|
|00001750| 57 48 49 4c 45 20 44 49 | 41 4c 4f 47 28 30 29 20 |WHILE DI|ALOG(0) |
|00001760| 3c 3e 20 31 0d 09 09 57 | 45 4e 44 0d 09 09 42 75 |<> 1...W|END...Bu|
|00001770| 74 74 6f 6e 69 64 20 3d | 20 44 49 41 4c 4f 47 28 |ttonid =| DIALOG(|
|00001780| 31 29 0d 09 09 49 46 20 | 42 75 74 74 6f 6e 69 64 |1)...IF |Buttonid|
|00001790| 20 3e 20 30 20 41 4e 44 | 20 42 75 74 74 6f 6e 69 | > 0 AND| Buttoni|
|000017a0| 64 20 3c 20 31 30 20 54 | 48 45 4e 20 47 4f 53 55 |d < 10 T|HEN GOSU|
|000017b0| 42 20 22 67 65 74 62 75 | 74 74 6f 6e 22 0d 09 57 |B "getbu|tton"..W|
|000017c0| 45 4e 44 0d 09 44 49 41 | 4c 4f 47 20 4f 46 46 0d |END..DIA|LOG OFF.|
|000017d0| 09 57 49 4e 44 4f 57 20 | 43 4c 4f 53 45 20 31 0d |.WINDOW |CLOSE 1.|
|000017e0| 09 4f 4e 20 4f 6c 64 62 | 75 74 74 6f 6e 20 47 4f |.ON Oldb|utton GO|
|000017f0| 53 55 42 20 22 6d 6f 6e | 64 61 79 22 2c 22 74 75 |SUB "mon|day","tu|
|00001800| 65 73 64 61 79 22 2c 22 | 77 65 64 6e 65 73 64 61 |esday","|wednesda|
|00001810| 79 22 2c 22 74 68 75 72 | 73 64 61 79 22 2c 22 66 |y","thur|sday","f|
|00001820| 72 69 64 61 79 22 2c 22 | 65 6d 70 74 79 22 2c 22 |riday","|empty","|
|00001830| 73 61 76 65 69 74 22 2c | 22 70 72 69 6e 74 73 63 |saveit",|"printsc|
|00001840| 68 65 64 22 2c 22 71 75 | 69 74 22 0d 09 47 4f 54 |hed","qu|it"..GOT|
|00001850| 4f 20 22 6d 61 69 6e 22 | 0d 52 45 4d 20 69 6e 64 |O "main"|.REM ind|
|00001860| 69 63 61 74 65 20 77 68 | 69 63 68 20 62 75 74 74 |icate wh|ich butt|
|00001870| 6f 6e 20 68 61 73 20 62 | 65 65 6e 20 63 6c 69 63 |on has b|een clic|
|00001880| 6b 65 64 0d 22 67 65 74 | 62 75 74 74 6f 6e 22 0d |ked."get|button".|
|00001890| 09 42 55 54 54 4f 4e 20 | 4f 6c 64 62 75 74 74 6f |.BUTTON |Oldbutto|
|000018a0| 6e 2c 31 0d 09 42 55 54 | 54 4f 4e 20 42 75 74 74 |n,1..BUT|TON Butt|
|000018b0| 6f 6e 69 64 2c 32 0d 09 | 4f 6c 64 62 75 74 74 6f |onid,2..|Oldbutto|
|000018c0| 6e 20 3d 20 42 75 74 74 | 6f 6e 69 64 0d 52 45 54 |n = Butt|onid.RET|
|000018d0| 55 52 4e 0d 52 45 4d 20 | 6d 6f 76 65 20 63 75 72 |URN.REM |move cur|
|000018e0| 73 6f 72 20 74 6f 20 6e | 65 77 20 65 64 69 74 20 |sor to n|ew edit |
|000018f0| 66 69 65 6c 64 0d 22 6e | 65 77 66 69 65 6c 64 22 |field."n|ewfield"|
|00001900| 0d 09 49 74 65 6d 20 3d | 20 44 49 41 4c 4f 47 28 |..Item =| DIALOG(|
|00001910| 32 29 0d 52 45 54 55 52 | 4e 0d 52 45 4d 20 6d 6f |2).RETUR|N.REM mo|
|00001920| 76 65 20 63 75 72 73 6f | 72 20 74 6f 20 6e 65 78 |ve curso|r to nex|
|00001930| 74 20 63 6f 6e 73 65 63 | 75 74 69 76 65 20 65 64 |t consec|utive ed|
|00001940| 69 74 20 66 69 65 6c 64 | 0d 22 6e 65 78 74 66 69 |it field|."nextfi|
|00001950| 65 6c 64 22 0d 09 49 74 | 65 6d 20 3d 20 49 74 65 |eld"..It|em = Ite|
|00001960| 6d 20 2b 20 31 0d 09 49 | 46 20 49 74 65 6d 20 3e |m + 1..I|F Item >|
|00001970| 20 4e 75 6d 69 74 65 6d | 20 54 48 45 4e 20 49 74 | Numitem| THEN It|
|00001980| 65 6d 20 3d 20 4e 75 6d | 69 74 65 6d 0d 52 45 54 |em = Num|item.RET|
|00001990| 55 52 4e 0d 52 45 4d 20 | 63 6c 65 61 72 20 6f 75 |URN.REM |clear ou|
|000019a0| 74 20 61 72 72 61 79 73 | 20 66 6f 72 20 6e 65 77 |t arrays| for new|
|000019b0| 20 64 61 74 61 0d 22 65 | 6d 70 74 79 22 0d 09 46 | data."e|mpty"..F|
|000019c0| 4f 52 20 49 6e 64 65 78 | 20 3d 20 31 20 54 4f 20 |OR Index| = 1 TO |
|000019d0| 35 0d 09 09 46 4f 52 20 | 53 75 62 69 6e 64 65 78 |5...FOR |Subindex|
|000019e0| 20 3d 20 31 20 54 4f 20 | 33 36 0d 09 09 09 44 61 | = 1 TO |36....Da|
|000019f0| 79 73 6c 6f 74 24 28 49 | 6e 64 65 78 2c 53 75 62 |yslot$(I|ndex,Sub|
|00001a00| 69 6e 64 65 78 29 20 3d | 20 22 22 0d 09 09 4e 45 |index) =| ""...NE|
|00001a10| 58 54 20 53 75 62 69 6e | 64 65 78 0d 09 4e 45 58 |XT Subin|dex..NEX|
|00001a20| 54 20 49 6e 64 65 78 0d | 09 53 74 61 74 65 20 3d |T Index.|.State =|
|00001a30| 20 30 0d 52 45 54 55 52 | 4e 0d 52 45 4d 20 72 6f | 0.RETUR|N.REM ro|
|00001a40| 75 74 69 6e 65 73 20 74 | 6f 20 64 69 73 70 6c 61 |utines t|o displa|
|00001a50| 79 20 73 63 68 65 64 75 | 6c 65 20 73 63 72 65 65 |y schedu|le scree|
|00001a60| 6e 20 66 6f 72 20 65 61 | 63 68 20 64 61 79 0d 22 |n for ea|ch day."|
|00001a70| 6d 6f 6e 64 61 79 22 0d | 09 44 61 79 6e 75 6d 20 |monday".|.Daynum |
|00001a80| 3d 20 31 0d 09 47 4f 53 | 55 42 20 22 73 63 68 65 |= 1..GOS|UB "sche|
|00001a90| 64 73 63 72 65 65 6e 22 | 0d 52 45 54 55 52 4e 0d |dscreen"|.RETURN.|
|00001aa0| 22 74 75 65 73 64 61 79 | 22 0d 09 44 61 79 6e 75 |"tuesday|"..Daynu|
|00001ab0| 6d 20 3d 20 32 0d 09 47 | 4f 53 55 42 20 22 73 63 |m = 2..G|OSUB "sc|
|00001ac0| 68 65 64 73 63 72 65 65 | 6e 22 0d 52 45 54 55 52 |hedscree|n".RETUR|
|00001ad0| 4e 0d 22 77 65 64 6e 65 | 73 64 61 79 22 0d 09 44 |N."wedne|sday"..D|
|00001ae0| 61 79 6e 75 6d 20 3d 20 | 33 0d 09 47 4f 53 55 42 |aynum = |3..GOSUB|
|00001af0| 20 22 73 63 68 65 64 73 | 63 72 65 65 6e 22 0d 52 | "scheds|creen".R|
|00001b00| 45 54 55 52 4e 0d 22 74 | 68 75 72 73 64 61 79 22 |ETURN."t|hursday"|
|00001b10| 0d 09 44 61 79 6e 75 6d | 20 3d 20 34 0d 09 47 4f |..Daynum| = 4..GO|
|00001b20| 53 55 42 20 22 73 63 68 | 65 64 73 63 72 65 65 6e |SUB "sch|edscreen|
|00001b30| 22 0d 52 45 54 55 52 4e | 0d 22 66 72 69 64 61 79 |".RETURN|."friday|
|00001b40| 22 0d 09 44 61 79 6e 75 | 6d 20 3d 20 35 0d 09 47 |"..Daynu|m = 5..G|
|00001b50| 4f 53 55 42 20 22 73 63 | 68 65 64 73 63 72 65 65 |OSUB "sc|hedscree|
|00001b60| 6e 22 0d 52 45 54 55 52 | 4e 0d 52 45 4d 20 63 6f |n".RETUR|N.REM co|
|00001b70| 6d 6d 6f 6e 20 73 63 72 | 65 65 6e 20 74 6f 20 64 |mmon scr|een to d|
|00001b80| 69 73 70 6c 61 79 20 74 | 69 6d 65 20 73 6c 6f 74 |isplay t|ime slot|
|00001b90| 73 20 66 6f 72 20 65 61 | 63 68 20 64 61 79 0d 22 |s for ea|ch day."|
|00001ba0| 73 63 68 65 64 73 63 72 | 65 65 6e 22 0d 09 57 49 |schedscr|een"..WI|
|00001bb0| 4e 44 4f 57 20 32 2c 22 | 22 2c 28 20 30 2c 20 32 |NDOW 2,"|",( 0, 2|
|00001bc0| 30 29 2d 28 20 35 31 31 | 2c 20 33 34 30 29 2c 20 |0)-( 511|, 340), |
|00001bd0| 33 0d 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 32 |3..CALL |MOVETO(2|
|00001be0| 32 35 2c 20 39 29 0d 09 | 54 45 58 54 20 34 2c 39 |25, 9)..|TEXT 4,9|
|00001bf0| 2c 30 2c 31 0d 09 50 52 | 49 4e 54 20 42 6f 78 74 |,0,1..PR|INT Boxt|
|00001c00| 69 74 6c 65 24 28 44 61 | 79 6e 75 6d 29 0d 09 48 |itle$(Da|ynum)..H|
|00001c10| 6f 72 69 7a 20 3d 20 35 | 0d 09 56 65 72 74 20 3d |oriz = 5|..Vert =|
|00001c20| 20 32 35 0d 09 46 4f 52 | 20 49 6e 64 65 78 20 3d | 25..FOR| Index =|
|00001c30| 20 31 20 54 4f 20 31 38 | 0d 09 09 43 41 4c 4c 20 | 1 TO 18|...CALL |
|00001c40| 4d 4f 56 45 54 4f 28 48 | 6f 72 69 7a 2c 56 65 72 |MOVETO(H|oriz,Ver|
|00001c50| 74 29 0d 09 09 50 52 49 | 4e 54 20 54 69 6d 65 73 |t)...PRI|NT Times|
|00001c60| 6c 6f 74 24 28 49 6e 64 | 65 78 29 0d 09 09 56 65 |lot$(Ind|ex)...Ve|
|00001c70| 72 74 20 3d 20 56 65 72 | 74 20 2b 20 31 36 0d 09 |rt = Ver|t + 16..|
|00001c80| 4e 45 58 54 20 49 6e 64 | 65 78 0d 09 48 6f 72 69 |NEXT Ind|ex..Hori|
|00001c90| 7a 20 3d 20 32 35 30 0d | 09 56 65 72 74 20 3d 20 |z = 250.|.Vert = |
|00001ca0| 32 35 0d 09 46 4f 52 20 | 49 6e 64 65 78 20 3d 20 |25..FOR |Index = |
|00001cb0| 31 39 20 54 4f 20 33 36 | 0d 09 09 43 41 4c 4c 20 |19 TO 36|...CALL |
|00001cc0| 4d 4f 56 45 54 4f 28 48 | 6f 72 69 7a 2c 56 65 72 |MOVETO(H|oriz,Ver|
|00001cd0| 74 29 0d 09 09 50 52 49 | 4e 54 20 54 69 6d 65 73 |t)...PRI|NT Times|
|00001ce0| 6c 6f 74 24 28 49 6e 64 | 65 78 29 0d 09 09 56 65 |lot$(Ind|ex)...Ve|
|00001cf0| 72 74 20 3d 20 56 65 72 | 74 20 2b 20 31 36 0d 09 |rt = Ver|t + 16..|
|00001d00| 4e 45 58 54 20 49 6e 64 | 65 78 0d 09 48 6f 72 69 |NEXT Ind|ex..Hori|
|00001d10| 7a 20 3d 20 35 30 0d 09 | 56 65 72 74 20 3d 20 31 |z = 50..|Vert = 1|
|00001d20| 35 0d 09 54 45 58 54 20 | 34 2c 39 2c 30 2c 31 0d |5..TEXT |4,9,0,1.|
|00001d30| 09 46 4f 52 20 49 6e 64 | 65 78 20 3d 20 31 20 54 |.FOR Ind|ex = 1 T|
|00001d40| 4f 20 31 38 0d 09 09 45 | 44 49 54 20 46 49 45 4c |O 18...E|DIT FIEL|
|00001d50| 44 20 49 6e 64 65 78 2c | 44 61 79 73 6c 6f 74 24 |D Index,|Dayslot$|
|00001d60| 28 44 61 79 6e 75 6d 2c | 49 6e 64 65 78 29 2c 28 |(Daynum,|Index),(|
|00001d70| 48 6f 72 69 7a 2c 56 65 | 72 74 29 2d 28 48 6f 72 |Horiz,Ve|rt)-(Hor|
|00001d80| 69 7a 2b 31 38 30 2c 56 | 65 72 74 2b 31 35 29 2c |iz+180,V|ert+15),|
|00001d90| 31 0d 09 09 56 65 72 74 | 20 3d 20 56 65 72 74 20 |1...Vert| = Vert |
|00001da0| 2b 20 31 36 0d 09 4e 45 | 58 54 20 49 6e 64 65 78 |+ 16..NE|XT Index|
|00001db0| 0d 09 48 6f 72 69 7a 20 | 3d 20 32 39 35 0d 09 56 |..Horiz |= 295..V|
|00001dc0| 65 72 74 20 3d 20 31 35 | 0d 09 46 4f 52 20 49 6e |ert = 15|..FOR In|
|00001dd0| 64 65 78 20 3d 20 31 39 | 20 54 4f 20 33 36 0d 09 |dex = 19| TO 36..|
|00001de0| 09 45 44 49 54 20 46 49 | 45 4c 44 20 49 6e 64 65 |.EDIT FI|ELD Inde|
|00001df0| 78 2c 44 61 79 73 6c 6f | 74 24 28 44 61 79 6e 75 |x,Dayslo|t$(Daynu|
|00001e00| 6d 2c 49 6e 64 65 78 29 | 2c 28 48 6f 72 69 7a 2c |m,Index)|,(Horiz,|
|00001e10| 56 65 72 74 29 2d 28 48 | 6f 72 69 7a 2b 31 38 30 |Vert)-(H|oriz+180|
|00001e20| 2c 56 65 72 74 2b 31 35 | 29 2c 31 0d 09 09 56 65 |,Vert+15|),1...Ve|
|00001e30| 72 74 20 3d 20 56 65 72 | 74 20 2b 20 31 36 0d 09 |rt = Ver|t + 16..|
|00001e40| 4e 45 58 54 20 49 6e 64 | 65 78 0d 09 42 55 54 54 |NEXT Ind|ex..BUTT|
|00001e50| 4f 4e 20 20 31 2c 31 2c | 22 44 6f 6e 65 22 2c 28 |ON  1,1,|"Done",(|
|00001e60| 20 32 33 35 2c 20 33 30 | 32 29 2d 28 20 32 39 30 | 235, 30|2)-( 290|
|00001e70| 2c 20 33 31 38 29 2c 20 | 31 0d 09 4e 75 6d 69 74 |, 318), |1..Numit|
|00001e80| 65 6d 20 3d 20 33 36 0d | 09 49 74 65 6d 20 3d 20 |em = 36.|.Item = |
|00001e90| 31 0d 22 61 64 64 22 0d | 09 44 49 41 4c 4f 47 20 |1."add".|.DIALOG |
|00001ea0| 4f 4e 0d 09 45 44 49 54 | 20 46 49 45 4c 44 20 49 |ON..EDIT| FIELD I|
|00001eb0| 74 65 6d 0d 22 70 6f 6c | 6c 22 0d 09 50 72 6f 63 |tem."pol|l"..Proc|
|00001ec0| 65 73 73 20 3d 20 44 49 | 41 4c 4f 47 28 30 29 0d |ess = DI|ALOG(0).|
|00001ed0| 09 42 75 74 74 6f 6e 69 | 64 20 3d 20 44 49 41 4c |.Buttoni|d = DIAL|
|00001ee0| 4f 47 28 31 29 0d 09 49 | 46 20 50 72 6f 63 65 73 |OG(1)..I|F Proces|
|00001ef0| 73 20 3d 20 30 20 54 48 | 45 4e 20 47 4f 54 4f 20 |s = 0 TH|EN GOTO |
|00001f00| 22 70 6f 6c 6c 22 0d 09 | 49 46 20 50 72 6f 63 65 |"poll"..|IF Proce|
|00001f10| 73 73 20 3d 20 31 20 54 | 48 45 4e 20 47 4f 54 4f |ss = 1 T|HEN GOTO|
|00001f20| 20 22 67 65 74 69 74 22 | 0d 09 49 46 20 50 72 6f | "getit"|..IF Pro|
|00001f30| 63 65 73 73 20 3d 20 32 | 20 54 48 45 4e 20 47 4f |cess = 2| THEN GO|
|00001f40| 53 55 42 20 22 6e 65 77 | 66 69 65 6c 64 22 3a 47 |SUB "new|field":G|
|00001f50| 4f 54 4f 20 22 61 64 64 | 22 0d 09 49 46 20 28 50 |OTO "add|"..IF (P|
|00001f60| 72 6f 63 65 73 73 20 3d | 20 36 29 20 4f 52 20 28 |rocess =| 6) OR (|
|00001f70| 50 72 6f 63 65 73 73 20 | 3d 20 37 29 20 54 48 45 |Process |= 7) THE|
|00001f80| 4e 20 47 4f 53 55 42 20 | 22 6e 65 78 74 66 69 65 |N GOSUB |"nextfie|
|00001f90| 6c 64 22 3a 47 4f 54 4f | 20 22 61 64 64 22 0d 09 |ld":GOTO| "add"..|
|00001fa0| 47 4f 54 4f 20 22 70 6f | 6c 6c 22 0d 09 44 49 41 |GOTO "po|ll"..DIA|
|00001fb0| 4c 4f 47 20 4f 46 46 0d | 52 45 4d 20 66 69 6c 6c |LOG OFF.|REM fill|
|00001fc0| 20 73 63 68 65 64 75 6c | 65 20 61 72 72 61 79 73 | schedul|e arrays|
|00001fd0| 20 77 69 74 68 20 64 61 | 74 61 20 65 6e 74 65 72 | with da|ta enter|
|00001fe0| 65 64 20 69 6e 74 6f 20 | 65 64 69 74 20 66 69 65 |ed into |edit fie|
|00001ff0| 6c 64 73 0d 22 67 65 74 | 69 74 22 0d 09 46 4f 52 |lds."get|it"..FOR|
|00002000| 20 49 6e 64 65 78 20 3d | 20 31 20 54 4f 20 33 36 | Index =| 1 TO 36|
|00002010| 0d 09 09 44 61 79 73 6c | 6f 74 24 28 44 61 79 6e |...Daysl|ot$(Dayn|
|00002020| 75 6d 2c 49 6e 64 65 78 | 29 20 3d 20 45 44 49 54 |um,Index|) = EDIT|
|00002030| 24 28 49 6e 64 65 78 29 | 0d 09 4e 45 58 54 20 49 |$(Index)|..NEXT I|
|00002040| 6e 64 65 78 0d 09 57 49 | 4e 44 4f 57 20 43 4c 4f |ndex..WI|NDOW CLO|
|00002050| 53 45 20 32 0d 52 45 54 | 55 52 4e 0d 52 45 4d 20 |SE 2.RET|URN.REM |
|00002060| 73 61 76 65 20 73 63 68 | 65 64 75 6c 65 20 64 61 |save sch|edule da|
|00002070| 74 61 20 74 6f 20 64 69 | 73 6b 0d 22 73 61 76 65 |ta to di|sk."save|
|00002080| 69 74 22 0d 09 4f 50 45 | 4e 20 22 4f 22 2c 31 2c |it"..OPE|N "O",1,|
|00002090| 22 73 63 68 65 64 61 74 | 61 22 0d 09 50 52 49 4e |"schedat|a"..PRIN|
|000020a0| 54 20 23 31 2c 4d 6f 6e | 65 24 3b 22 2c 22 3b 44 |T #1,Mon|e$;",";D|
|000020b0| 6f 6e 65 24 3b 22 2c 22 | 3b 59 6f 6e 65 24 3b 22 |one$;","|;Yone$;"|
|000020c0| 2c 22 3b 4d 74 77 6f 24 | 3b 22 2c 22 3b 44 74 77 |,";Mtwo$|;",";Dtw|
|000020d0| 6f 24 3b 22 2c 22 3b 59 | 74 77 6f 24 0d 09 46 4f |o$;",";Y|two$..FO|
|000020e0| 52 20 49 6e 64 65 78 20 | 3d 20 31 20 54 4f 20 35 |R Index |= 1 TO 5|
|000020f0| 0d 09 09 46 4f 52 20 53 | 75 62 69 6e 64 65 78 20 |...FOR S|ubindex |
|00002100| 3d 20 31 20 54 4f 20 33 | 36 0d 09 09 09 50 52 49 |= 1 TO 3|6....PRI|
|00002110| 4e 54 20 23 31 2c 44 61 | 79 73 6c 6f 74 24 28 49 |NT #1,Da|yslot$(I|
|00002120| 6e 64 65 78 2c 53 75 62 | 69 6e 64 65 78 29 3b 22 |ndex,Sub|index);"|
|00002130| 2c 22 3b 0d 09 09 4e 45 | 58 54 20 53 75 62 69 6e |,";...NE|XT Subin|
|00002140| 64 65 78 0d 09 4e 45 58 | 54 20 49 6e 64 65 78 0d |dex..NEX|T Index.|
|00002150| 09 43 4c 4f 53 45 20 23 | 31 0d 52 45 54 55 52 4e |.CLOSE #|1.RETURN|
|00002160| 0d 52 45 4d 20 70 72 69 | 6e 74 20 74 68 65 20 73 |.REM pri|nt the s|
|00002170| 63 68 65 64 75 6c 65 0d | 22 70 72 69 6e 74 73 63 |chedule.|"printsc|
|00002180| 68 65 64 22 0d 52 45 4d | 20 6d 61 6b 65 20 73 75 |hed".REM| make su|
|00002190| 72 65 20 70 72 69 6e 74 | 65 72 20 69 73 20 72 65 |re print|er is re|
|000021a0| 61 64 79 0d 09 57 49 4e | 44 4f 57 20 33 2c 22 22 |ady..WIN|DOW 3,""|
|000021b0| 2c 28 31 34 30 2c 31 31 | 35 29 2d 28 33 33 35 2c |,(140,11|5)-(335,|
|000021c0| 32 32 30 29 2c 32 0d 09 | 42 45 45 50 0d 09 43 41 |220),2..|BEEP..CA|
|000021d0| 4c 4c 20 4d 4f 56 45 54 | 4f 28 35 2c 31 35 29 0d |LL MOVET|O(5,15).|
|000021e0| 09 54 45 58 54 20 31 2c | 31 32 2c 30 2c 31 0d 09 |.TEXT 1,|12,0,1..|
|000021f0| 50 52 49 4e 54 20 22 4d | 61 6b 65 20 73 75 72 65 |PRINT "M|ake sure|
|00002200| 20 79 6f 75 72 20 70 72 | 69 6e 74 65 72 20 69 73 | your pr|inter is|
|00002210| 22 0d 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 35 |"..CALL |MOVETO(5|
|00002220| 2c 33 35 29 0d 09 50 52 | 49 4e 54 20 22 73 65 74 |,35)..PR|INT "set|
|00002230| 20 75 70 20 2e 20 2e 20 | 2e 20 63 6c 69 63 6b 20 | up . . |. click |
|00002240| 74 68 65 20 27 4f 6b 61 | 79 27 22 0d 09 43 41 4c |the 'Oka|y'"..CAL|
|00002250| 4c 20 4d 4f 56 45 54 4f | 28 35 2c 35 35 29 0d 09 |L MOVETO|(5,55)..|
|00002260| 50 52 49 4e 54 20 22 62 | 75 74 74 6f 6e 20 77 68 |PRINT "b|utton wh|
|00002270| 65 6e 20 79 6f 75 27 72 | 65 20 72 65 61 64 79 2e |en you'r|e ready.|
|00002280| 22 0d 09 42 55 54 54 4f | 4e 20 31 2c 31 2c 22 4f |"..BUTTO|N 1,1,"O|
|00002290| 6b 61 79 22 2c 28 35 33 | 2c 37 37 29 2d 28 31 31 |kay",(53|,77)-(11|
|000022a0| 39 2c 39 38 29 2c 31 0d | 09 44 49 41 4c 4f 47 20 |9,98),1.|.DIALOG |
|000022b0| 4f 4e 0d 09 57 48 49 4c | 45 20 44 49 41 4c 4f 47 |ON..WHIL|E DIALOG|
|000022c0| 28 30 29 20 3c 3e 20 31 | 0d 09 57 45 4e 44 0d 09 |(0) <> 1|..WEND..|
|000022d0| 44 49 41 4c 4f 47 20 4f | 46 46 0d 09 57 49 4e 44 |DIALOG O|FF..WIND|
|000022e0| 4f 57 20 43 4c 4f 53 45 | 20 33 0d 52 45 4d 20 70 |OW CLOSE| 3.REM p|
|000022f0| 75 74 20 75 70 20 6d 65 | 73 73 61 67 65 20 77 68 |ut up me|ssage wh|
|00002300| 69 6c 65 20 70 72 69 6e | 74 69 6e 67 0d 22 77 61 |ile prin|ting."wa|
|00002310| 69 74 6d 65 73 73 61 67 | 65 22 0d 09 57 49 4e 44 |itmessag|e"..WIND|
|00002320| 4f 57 20 33 2c 22 22 2c | 28 20 31 31 30 2c 20 31 |OW 3,"",|( 110, 1|
|00002330| 32 30 29 2d 28 20 33 38 | 37 2c 20 32 34 30 29 2c |20)-( 38|7, 240),|
|00002340| 20 32 0d 09 43 41 4c 4c | 20 4d 4f 56 45 54 4f 28 | 2..CALL| MOVETO(|
|00002350| 32 30 2c 20 33 30 29 0d | 09 54 45 58 54 20 30 2c |20, 30).|.TEXT 0,|
|00002360| 31 32 2c 30 2c 31 0d 09 | 50 52 49 4e 54 20 22 47 |12,0,1..|PRINT "G|
|00002370| 6f 20 61 6e 64 20 67 65 | 74 20 61 20 63 75 70 20 |o and ge|t a cup |
|00002380| 6f 66 20 63 6f 66 66 65 | 65 20 6f 72 20 73 6f 6d |of coffe|e or som|
|00002390| 65 2d 22 0d 09 43 41 4c | 4c 20 4d 4f 56 45 54 4f |e-"..CAL|L MOVETO|
|000023a0| 28 32 30 2c 20 35 35 29 | 0d 09 50 52 49 4e 54 20 |(20, 55)|..PRINT |
|000023b0| 22 74 68 69 6e 67 20 2e | 20 2e 20 2e 20 54 68 69 |"thing .| . . Thi|
|000023c0| 73 20 77 69 6c 6c 20 70 | 72 6f 62 61 62 6c 79 20 |s will p|robably |
|000023d0| 74 61 6b 65 22 0d 09 43 | 41 4c 4c 20 4d 4f 56 45 |take"..C|ALL MOVE|
|000023e0| 54 4f 28 32 30 2c 20 38 | 35 29 0d 09 50 52 49 4e |TO(20, 8|5)..PRIN|
|000023f0| 54 20 22 61 20 6c 69 74 | 74 6c 65 20 77 68 69 6c |T "a lit|tle whil|
|00002400| 65 20 2e 20 2e 20 2e 22 | 0d 09 54 45 58 54 20 31 |e . . ."|..TEXT 1|
|00002410| 2c 31 32 2c 30 2c 31 0d | 09 52 45 4d 20 6c 6f 6f |,12,0,1.|.REM loo|
|00002420| 70 20 74 6f 20 70 72 69 | 6e 74 20 35 20 64 61 79 |p to pri|nt 5 day|
|00002430| 73 0d 09 46 4f 52 20 43 | 6f 75 6e 74 65 72 20 3d |s..FOR C|ounter =|
|00002440| 20 31 20 54 4f 20 35 0d | 52 45 4d 20 73 65 74 20 | 1 TO 5.|REM set |
|00002450| 75 70 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 20 74 |up coord|inates t|
|00002460| 6f 20 75 73 65 20 77 69 | 74 68 20 70 72 69 6e 74 |o use wi|th print|
|00002470| 65 72 0d 09 09 43 4f 4f | 52 44 49 4e 41 54 45 20 |er...COO|RDINATE |
|00002480| 36 33 30 2c 34 35 35 0d | 09 09 52 4f 55 54 45 20 |630,455.|..ROUTE |
|00002490| 31 32 38 0d 09 09 54 45 | 58 54 20 31 2c 31 32 2c |128...TE|XT 1,12,|
|000024a0| 34 2c 31 0d 09 09 52 45 | 4d 20 70 72 69 6e 74 20 |4,1...RE|M print |
|000024b0| 77 65 65 6b 6c 79 20 64 | 61 74 65 73 0d 09 09 50 |weekly d|ates...P|
|000024c0| 52 49 4e 54 20 57 65 65 | 6b 24 0d 09 09 52 45 4d |RINT Wee|k$...REM|
|000024d0| 20 64 72 61 77 20 74 68 | 65 20 62 6f 78 65 73 20 | draw th|e boxes |
|000024e0| 69 6e 20 74 68 65 20 70 | 72 69 6e 74 20 66 69 6c |in the p|rint fil|
|000024f0| 65 0d 09 09 43 41 4c 4c | 20 4d 4f 56 45 54 4f 28 |e...CALL| MOVETO(|
|00002500| 30 2c 33 35 29 0d 09 09 | 43 41 4c 4c 20 4c 49 4e |0,35)...|CALL LIN|
|00002510| 45 54 4f 28 32 34 30 2c | 33 35 29 0d 09 09 43 41 |ETO(240,|35)...CA|
|00002520| 4c 4c 20 4d 4f 56 45 54 | 4f 28 33 38 30 2c 33 35 |LL MOVET|O(380,35|
|00002530| 29 0d 09 09 43 41 4c 4c | 20 4c 49 4e 45 54 4f 28 |)...CALL| LINETO(|
|00002540| 36 33 30 2c 33 35 29 0d | 09 09 43 41 4c 4c 20 4d |630,35).|..CALL M|
|00002550| 4f 56 45 54 4f 28 30 2c | 33 35 29 0d 09 09 43 41 |OVETO(0,|35)...CA|
|00002560| 4c 4c 20 4c 49 4e 45 54 | 4f 28 30 2c 34 35 35 29 |LL LINET|O(0,455)|
|00002570| 0d 09 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 32 |...CALL |MOVETO(2|
|00002580| 31 30 2c 33 35 29 0d 09 | 09 43 41 4c 4c 20 4c 49 |10,35)..|.CALL LI|
|00002590| 4e 45 54 4f 28 32 31 30 | 2c 34 35 35 29 0d 09 09 |NETO(210|,455)...|
|000025a0| 43 41 4c 4c 20 4d 4f 56 | 45 54 4f 28 34 32 30 2c |CALL MOV|ETO(420,|
|000025b0| 33 35 29 0d 09 09 43 41 | 4c 4c 20 4c 49 4e 45 54 |35)...CA|LL LINET|
|000025c0| 4f 28 34 32 30 2c 34 35 | 35 29 0d 09 09 43 41 4c |O(420,45|5)...CAL|
|000025d0| 4c 20 4d 4f 56 45 54 4f | 28 36 33 30 2c 33 35 29 |L MOVETO|(630,35)|
|000025e0| 0d 09 09 43 41 4c 4c 20 | 4c 49 4e 45 54 4f 28 36 |...CALL |LINETO(6|
|000025f0| 33 30 2c 34 35 35 29 0d | 09 09 43 41 4c 4c 20 4d |30,455).|..CALL M|
|00002600| 4f 56 45 54 4f 28 30 2c | 32 34 35 29 0d 09 09 43 |OVETO(0,|245)...C|
|00002610| 41 4c 4c 20 4c 49 4e 45 | 54 4f 28 36 33 30 2c 32 |ALL LINE|TO(630,2|
|00002620| 34 35 29 0d 09 09 43 41 | 4c 4c 20 4d 4f 56 45 54 |45)...CA|LL MOVET|
|00002630| 4f 28 30 2c 34 35 35 29 | 0d 09 09 43 41 4c 4c 20 |O(0,455)|...CALL |
|00002640| 4c 49 4e 45 54 4f 28 36 | 33 30 2c 34 35 35 29 0d |LINETO(6|30,455).|
|00002650| 09 09 54 45 58 54 20 34 | 2c 39 2c 30 2c 31 0d 09 |..TEXT 4|,9,0,1..|
|00002660| 09 43 41 4c 4c 20 4d 4f | 56 45 54 4f 28 32 34 35 |.CALL MO|VETO(245|
|00002670| 2c 33 35 29 0d 09 09 50 | 52 49 4e 54 20 42 6f 78 |,35)...P|RINT Box|
|00002680| 74 69 74 6c 65 24 28 43 | 6f 75 6e 74 65 72 29 0d |title$(C|ounter).|
|00002690| 52 45 4d 20 70 72 69 6e | 74 20 74 68 65 20 73 63 |REM prin|t the sc|
|000026a0| 68 65 64 75 6c 65 20 74 | 69 6d 65 73 0d 09 09 54 |hedule t|imes...T|
|000026b0| 45 58 54 20 34 2c 39 2c | 34 2c 31 0d 09 09 48 6f |EXT 4,9,|4,1...Ho|
|000026c0| 72 69 7a 20 3d 20 35 3a | 20 56 65 72 74 20 3d 20 |riz = 5:| Vert = |
|000026d0| 35 35 0d 09 09 46 4f 52 | 20 53 70 6f 74 74 65 72 |55...FOR| Spotter|
|000026e0| 20 3d 20 31 20 54 4f 20 | 36 0d 09 09 09 43 41 4c | = 1 TO |6....CAL|
|000026f0| 4c 20 4d 4f 56 45 54 4f | 28 48 6f 72 69 7a 2c 56 |L MOVETO|(Horiz,V|
|00002700| 65 72 74 29 3a 20 50 52 | 49 4e 54 20 54 69 6d 65 |ert): PR|INT Time|
|00002710| 73 6c 6f 74 24 28 53 70 | 6f 74 74 65 72 29 0d 09 |slot$(Sp|otter)..|
|00002720| 09 09 56 65 72 74 20 3d | 20 56 65 72 74 20 2b 20 |..Vert =| Vert + |
|00002730| 33 30 0d 09 09 4e 45 58 | 54 20 53 70 6f 74 74 65 |30...NEX|T Spotte|
|00002740| 72 0d 09 09 48 6f 72 69 | 7a 20 3d 20 32 31 35 3a |r...Hori|z = 215:|
|00002750| 20 56 65 72 74 20 3d 20 | 35 35 0d 09 09 46 4f 52 | Vert = |55...FOR|
|00002760| 20 53 70 6f 74 74 65 72 | 20 3d 20 37 20 54 4f 20 | Spotter| = 7 TO |
|00002770| 31 32 0d 09 09 09 43 41 | 4c 4c 20 4d 4f 56 45 54 |12....CA|LL MOVET|
|00002780| 4f 28 48 6f 72 69 7a 2c | 56 65 72 74 29 3a 20 50 |O(Horiz,|Vert): P|
|00002790| 52 49 4e 54 20 54 69 6d | 65 73 6c 6f 74 24 28 53 |RINT Tim|eslot$(S|
|000027a0| 70 6f 74 74 65 72 29 0d | 09 09 09 56 65 72 74 20 |potter).|...Vert |
|000027b0| 3d 20 56 65 72 74 20 2b | 20 33 30 0d 09 09 4e 45 |= Vert +| 30...NE|
|000027c0| 58 54 20 53 70 6f 74 74 | 65 72 0d 09 09 48 6f 72 |XT Spott|er...Hor|
|000027d0| 69 7a 20 3d 20 34 32 35 | 3a 20 56 65 72 74 20 3d |iz = 425|: Vert =|
|000027e0| 20 35 35 0d 09 09 46 4f | 52 20 53 70 6f 74 74 65 | 55...FO|R Spotte|
|000027f0| 72 20 3d 20 31 33 20 54 | 4f 20 31 38 0d 09 09 09 |r = 13 T|O 18....|
|00002800| 43 41 4c 4c 20 4d 4f 56 | 45 54 4f 28 48 6f 72 69 |CALL MOV|ETO(Hori|
|00002810| 7a 2c 56 65 72 74 29 3a | 20 50 52 49 4e 54 20 54 |z,Vert):| PRINT T|
|00002820| 69 6d 65 73 6c 6f 74 24 | 28 53 70 6f 74 74 65 72 |imeslot$|(Spotter|
|00002830| 29 0d 09 09 09 56 65 72 | 74 20 3d 20 56 65 72 74 |)....Ver|t = Vert|
|00002840| 20 2b 20 33 30 0d 09 09 | 4e 45 58 54 20 53 70 6f | + 30...|NEXT Spo|
|00002850| 74 74 65 72 0d 09 09 48 | 6f 72 69 7a 20 3d 20 35 |tter...H|oriz = 5|
|00002860| 3a 20 56 65 72 74 20 3d | 20 32 36 35 0d 09 09 46 |: Vert =| 265...F|
|00002870| 4f 52 20 53 70 6f 74 74 | 65 72 20 3d 20 31 39 20 |OR Spott|er = 19 |
|00002880| 54 4f 20 32 34 0d 09 09 | 09 43 41 4c 4c 20 4d 4f |TO 24...|.CALL MO|
|00002890| 56 45 54 4f 28 48 6f 72 | 69 7a 2c 56 65 72 74 29 |VETO(Hor|iz,Vert)|
|000028a0| 3a 20 50 52 49 4e 54 20 | 54 69 6d 65 73 6c 6f 74 |: PRINT |Timeslot|
|000028b0| 24 28 53 70 6f 74 74 65 | 72 29 0d 09 09 09 56 65 |$(Spotte|r)....Ve|
|000028c0| 72 74 20 3d 20 56 65 72 | 74 20 2b 20 33 30 0d 09 |rt = Ver|t + 30..|
|000028d0| 09 4e 45 58 54 20 53 70 | 6f 74 74 65 72 0d 09 09 |.NEXT Sp|otter...|
|000028e0| 48 6f 72 69 7a 20 3d 20 | 32 31 35 3a 20 56 65 72 |Horiz = |215: Ver|
|000028f0| 74 20 3d 20 32 36 35 0d | 09 09 46 4f 52 20 53 70 |t = 265.|..FOR Sp|
|00002900| 6f 74 74 65 72 20 3d 20 | 32 35 20 54 4f 20 33 30 |otter = |25 TO 30|
|00002910| 0d 09 09 09 43 41 4c 4c | 20 4d 4f 56 45 54 4f 28 |....CALL| MOVETO(|
|00002920| 48 6f 72 69 7a 2c 56 65 | 72 74 29 3a 20 50 52 49 |Horiz,Ve|rt): PRI|
|00002930| 4e 54 20 54 69 6d 65 73 | 6c 6f 74 24 28 53 70 6f |NT Times|lot$(Spo|
|00002940| 74 74 65 72 29 0d 09 09 | 09 56 65 72 74 20 3d 20 |tter)...|.Vert = |
|00002950| 56 65 72 74 20 2b 20 33 | 30 0d 09 09 4e 45 58 54 |Vert + 3|0...NEXT|
|00002960| 20 53 70 6f 74 74 65 72 | 0d 09 09 48 6f 72 69 7a | Spotter|...Horiz|
|00002970| 20 3d 20 34 32 35 3a 20 | 56 65 72 74 20 3d 20 32 | = 425: |Vert = 2|
|00002980| 36 35 0d 09 09 46 4f 52 | 20 53 70 6f 74 74 65 72 |65...FOR| Spotter|
|00002990| 20 3d 20 33 31 20 54 4f | 20 33 36 0d 09 09 09 43 | = 31 TO| 36....C|
|000029a0| 41 4c 4c 20 4d 4f 56 45 | 54 4f 28 48 6f 72 69 7a |ALL MOVE|TO(Horiz|
|000029b0| 2c 56 65 72 74 29 3a 20 | 50 52 49 4e 54 20 54 69 |,Vert): |PRINT Ti|
|000029c0| 6d 65 73 6c 6f 74 24 28 | 53 70 6f 74 74 65 72 29 |meslot$(|Spotter)|
|000029d0| 0d 09 09 09 56 65 72 74 | 20 3d 20 56 65 72 74 20 |....Vert| = Vert |
|000029e0| 2b 20 33 30 0d 09 09 4e | 45 58 54 20 53 70 6f 74 |+ 30...N|EXT Spot|
|000029f0| 74 65 72 0d 52 45 4d 20 | 70 72 69 6e 74 20 74 68 |ter.REM |print th|
|00002a00| 65 20 73 63 68 65 64 75 | 6c 65 20 69 6e 66 6f 72 |e schedu|le infor|
|00002a10| 6d 61 74 69 6f 6e 20 66 | 6f 72 20 65 61 63 68 20 |mation f|or each |
|00002a20| 64 61 79 0d 09 09 54 45 | 58 54 20 34 2c 39 2c 30 |day...TE|XT 4,9,0|
|00002a30| 2c 31 0d 09 09 48 6f 72 | 69 7a 20 3d 20 32 30 3a |,1...Hor|iz = 20:|
|00002a40| 20 56 65 72 74 20 3d 20 | 37 30 0d 09 09 46 4f 52 | Vert = |70...FOR|
|00002a50| 20 49 6e 64 65 78 20 3d | 20 31 20 54 4f 20 36 0d | Index =| 1 TO 6.|
|00002a60| 09 09 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 48 |...CALL |MOVETO(H|
|00002a70| 6f 72 69 7a 2c 56 65 72 | 74 29 3a 20 50 52 49 4e |oriz,Ver|t): PRIN|
|00002a80| 54 20 44 61 79 73 6c 6f | 74 24 28 43 6f 75 6e 74 |T Dayslo|t$(Count|
|00002a90| 65 72 2c 49 6e 64 65 78 | 29 0d 09 09 09 56 65 72 |er,Index|)....Ver|
|00002aa0| 74 20 3d 20 56 65 72 74 | 20 2b 20 33 30 0d 09 09 |t = Vert| + 30...|
|00002ab0| 4e 45 58 54 20 49 6e 64 | 65 78 0d 09 09 48 6f 72 |NEXT Ind|ex...Hor|
|00002ac0| 69 7a 20 3d 20 32 33 30 | 3a 20 56 65 72 74 20 3d |iz = 230|: Vert =|
|00002ad0| 20 37 30 0d 09 09 46 4f | 52 20 49 6e 64 65 78 20 | 70...FO|R Index |
|00002ae0| 3d 20 37 20 54 4f 20 31 | 32 0d 09 09 09 43 41 4c |= 7 TO 1|2....CAL|
|00002af0| 4c 20 4d 4f 56 45 54 4f | 28 48 6f 72 69 7a 2c 56 |L MOVETO|(Horiz,V|
|00002b00| 65 72 74 29 3a 20 50 52 | 49 4e 54 20 44 61 79 73 |ert): PR|INT Days|
|00002b10| 6c 6f 74 24 28 43 6f 75 | 6e 74 65 72 2c 49 6e 64 |lot$(Cou|nter,Ind|
|00002b20| 65 78 29 0d 09 09 09 56 | 65 72 74 20 3d 20 56 65 |ex)....V|ert = Ve|
|00002b30| 72 74 20 2b 20 33 30 0d | 09 09 4e 45 58 54 20 49 |rt + 30.|..NEXT I|
|00002b40| 6e 64 65 78 0d 09 09 48 | 6f 72 69 7a 20 3d 20 34 |ndex...H|oriz = 4|
|00002b50| 34 30 3a 20 56 65 72 74 | 20 3d 20 37 30 0d 09 09 |40: Vert| = 70...|
|00002b60| 46 4f 52 20 49 6e 64 65 | 78 20 3d 20 31 33 20 54 |FOR Inde|x = 13 T|
|00002b70| 4f 20 31 38 0d 09 09 09 | 43 41 4c 4c 20 4d 4f 56 |O 18....|CALL MOV|
|00002b80| 45 54 4f 28 48 6f 72 69 | 7a 2c 56 65 72 74 29 3a |ETO(Hori|z,Vert):|
|00002b90| 20 50 52 49 4e 54 20 44 | 61 79 73 6c 6f 74 24 28 | PRINT D|ayslot$(|
|00002ba0| 43 6f 75 6e 74 65 72 2c | 49 6e 64 65 78 29 0d 09 |Counter,|Index)..|
|00002bb0| 09 09 56 65 72 74 20 3d | 20 56 65 72 74 20 2b 20 |..Vert =| Vert + |
|00002bc0| 33 30 0d 09 09 4e 45 58 | 54 20 49 6e 64 65 78 0d |30...NEX|T Index.|
|00002bd0| 09 09 48 6f 72 69 7a 20 | 3d 20 32 30 3a 20 56 65 |..Horiz |= 20: Ve|
|00002be0| 72 74 20 3d 20 32 38 30 | 0d 09 09 46 4f 52 20 49 |rt = 280|...FOR I|
|00002bf0| 6e 64 65 78 20 3d 20 31 | 39 20 54 4f 20 32 34 0d |ndex = 1|9 TO 24.|
|00002c00| 09 09 09 43 41 4c 4c 20 | 4d 4f 56 45 54 4f 28 48 |...CALL |MOVETO(H|
|00002c10| 6f 72 69 7a 2c 56 65 72 | 74 29 3a 20 50 52 49 4e |oriz,Ver|t): PRIN|
|00002c20| 54 20 44 61 79 73 6c 6f | 74 24 28 43 6f 75 6e 74 |T Dayslo|t$(Count|
|00002c30| 65 72 2c 49 6e 64 65 78 | 29 0d 09 09 09 56 65 72 |er,Index|)....Ver|
|00002c40| 74 20 3d 20 56 65 72 74 | 20 2b 20 33 30 0d 09 09 |t = Vert| + 30...|
|00002c50| 4e 45 58 54 20 49 6e 64 | 65 78 0d 09 09 48 6f 72 |NEXT Ind|ex...Hor|
|00002c60| 69 7a 20 3d 20 32 33 30 | 3a 20 56 65 72 74 20 3d |iz = 230|: Vert =|
|00002c70| 20 32 38 30 0d 09 09 46 | 4f 52 20 49 6e 64 65 78 | 280...F|OR Index|
|00002c80| 20 3d 20 32 35 20 54 4f | 20 33 30 0d 09 09 09 43 | = 25 TO| 30....C|
|00002c90| 41 4c 4c 20 4d 4f 56 45 | 54 4f 28 48 6f 72 69 7a |ALL MOVE|TO(Horiz|
|00002ca0| 2c 56 65 72 74 29 3a 20 | 50 52 49 4e 54 20 44 61 |,Vert): |PRINT Da|
|00002cb0| 79 73 6c 6f 74 24 28 43 | 6f 75 6e 74 65 72 2c 49 |yslot$(C|ounter,I|
|00002cc0| 6e 64 65 78 29 0d 09 09 | 09 56 65 72 74 20 3d 20 |ndex)...|.Vert = |
|00002cd0| 56 65 72 74 20 2b 20 33 | 30 0d 09 09 4e 45 58 54 |Vert + 3|0...NEXT|
|00002ce0| 20 49 6e 64 65 78 0d 09 | 09 48 6f 72 69 7a 20 3d | Index..|.Horiz =|
|00002cf0| 20 34 34 30 3a 20 56 65 | 72 74 20 3d 20 32 38 30 | 440: Ve|rt = 280|
|00002d00| 0d 09 09 46 4f 52 20 49 | 6e 64 65 78 20 3d 20 33 |...FOR I|ndex = 3|
|00002d10| 31 20 54 4f 20 33 36 0d | 09 09 09 43 41 4c 4c 20 |1 TO 36.|...CALL |
|00002d20| 4d 4f 56 45 54 4f 28 48 | 6f 72 69 7a 2c 56 65 72 |MOVETO(H|oriz,Ver|
|00002d30| 74 29 3a 20 50 52 49 4e | 54 20 44 61 79 73 6c 6f |t): PRIN|T Dayslo|
|00002d40| 74 24 28 43 6f 75 6e 74 | 65 72 2c 49 6e 64 65 78 |t$(Count|er,Index|
|00002d50| 29 0d 09 09 09 56 65 72 | 74 20 3d 20 56 65 72 74 |)....Ver|t = Vert|
|00002d60| 20 2b 20 33 30 0d 09 09 | 4e 45 58 54 20 49 6e 64 | + 30...|NEXT Ind|
|00002d70| 65 78 0d 09 09 43 4c 45 | 41 52 20 4c 50 52 49 4e |ex...CLE|AR LPRIN|
|00002d80| 54 0d 09 09 52 4f 55 54 | 45 20 30 0d 52 45 4d 20 |T...ROUT|E 0.REM |
|00002d90| 74 68 69 73 20 70 61 67 | 65 20 69 73 20 66 69 6e |this pag|e is fin|
|00002da0| 69 73 68 65 64 2c 20 64 | 6f 20 74 68 65 20 6e 65 |ished, d|o the ne|
|00002db0| 78 74 20 6f 6e 65 0d 09 | 4e 45 58 54 20 43 6f 75 |xt one..|NEXT Cou|
|00002dc0| 6e 74 65 72 0d 52 45 4d | 20 72 65 74 75 72 6e 20 |nter.REM| return |
|00002dd0| 74 6f 20 73 63 72 65 65 | 6e 20 64 69 73 70 6c 61 |to scree|n displa|
|00002de0| 79 0d 09 43 4f 4f 52 44 | 49 4e 41 54 45 20 35 31 |y..COORD|INATE 51|
|00002df0| 31 2c 33 34 31 0d 09 43 | 4f 4f 52 44 49 4e 41 54 |1,341..C|OORDINAT|
|00002e00| 45 20 57 49 4e 44 4f 57 | 0d 09 57 49 4e 44 4f 57 |E WINDOW|..WINDOW|
|00002e10| 20 43 4c 4f 53 45 20 33 | 0d 52 45 54 55 52 4e 0d | CLOSE 3|.RETURN.|
|00002e20| 52 45 4d 20 6c 65 61 76 | 65 20 53 63 68 65 64 75 |REM leav|e Schedu|
|00002e30| 6c 65 72 0d 22 71 75 69 | 74 22 0d 09 45 4e 44 0d |ler."qui|t"..END.|
|00002e40| 52 45 4d 20 65 72 72 6f | 72 20 74 72 61 70 20 69 |REM erro|r trap i|
|00002e50| 66 20 6e 6f 20 64 61 74 | 61 20 66 69 6c 65 20 70 |f no dat|a file p|
|00002e60| 72 65 73 65 6e 74 0d 22 | 73 63 68 65 64 65 72 72 |resent."|schederr|
|00002e70| 22 0d 09 42 61 64 72 65 | 73 75 6c 74 20 3d 20 45 |"..Badre|sult = E|
|00002e80| 52 52 4f 52 20 41 4e 44 | 20 32 35 35 0d 09 49 46 |RROR AND| 255..IF|
|00002e90| 20 42 61 64 72 65 73 75 | 6c 74 20 3d 20 33 20 54 | Badresu|lt = 3 T|
|00002ea0| 48 45 4e 20 47 4f 53 55 | 42 20 22 62 6c 61 6e 6b |HEN GOSU|B "blank|
|00002eb0| 65 6d 22 20 45 4c 53 45 | 20 4d 6f 6e 24 20 3d 20 |em" ELSE| Mon$ = |
|00002ec0| 53 54 52 24 28 42 61 64 | 72 65 73 75 6c 74 29 0d |STR$(Bad|result).|
|00002ed0| 09 45 52 52 4f 52 20 3d | 20 30 0d 52 45 54 55 52 |.ERROR =| 0.RETUR|
|00002ee0| 4e 0d 22 62 6c 61 6e 6b | 65 6d 22 0d 09 53 74 61 |N."blank|em"..Sta|
|00002ef0| 74 65 20 3d 20 30 0d 09 | 4d 6f 6e 24 20 3d 20 22 |te = 0..|Mon$ = "|
|00002f00| 22 0d 09 46 72 69 24 20 | 3d 20 22 22 0d 52 45 54 |"..Fri$ |= "".RET|
|00002f10| 55 52 4e 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |URN.....|........|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00002f90| 6a b4 50 4f 4c df 0c 10 | 20 55 20 50 31 5f 00 4a |j.POL...| U P1_.J|
|00002fa0| 21 5f 00 44 4a 46 66 00 | 01 06 2f 0c 2f 04 a8 b0 |!_.DJFf.|.././...|
|00002fb0| 0d 53 63 68 65 64 75 6c | 65 72 2e 62 61 73 02 00 |.Schedul|er.bas..|
|00002fc0| 00 00 54 45 58 54 45 44 | 49 54 00 00 da 3a 00 4c |..TEXTED|IT...:.L|
|00002fd0| 00 00 54 45 58 54 45 44 | 49 54 00 00 da 3a 00 4c |..TEXTED|IT...:.L|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 9b 39 e5 16 00 00 | 2e 94 00 00 01 5c 2f 3c |...9....|.....\/<|
|00003000| 00 01 00 03 a8 a9 2f 0c | 20 55 48 68 ff e8 a8 9d |....../.| UHh....|
|00003010| 3f 3c 00 0b a8 9c a8 a2 | a8 9e 2f 0c 2f 3c ff ff |?<......|.././<..|
|00003020| ff fd a8 a9 4e 75 4a 46 | 66 12 38 28 00 0c 98 68 |....NuJF|f.8(...h|
|00003030| 00 08 e2 4c 30 04 48 44 | 38 00 4e 75 78 00 4e 75 |...L0.HD|8.Nux.Nu|
|00003040| 18 28 00 11 52 04 67 20 | 42 67 2f 03 48 68 00 08 |.(..R.g |Bg/.Hh..|
|00003050| a8 ad 4a 1f 67 12 52 04 | 67 10 3d 7c 00 0a 00 16 |..J.g.R.|g.=|....|
|00003060| 4a 46 67 04 52 6e 00 16 | 4e 75 3d 7c 00 fe 00 16 |JFg.Rn..|Nu=|....|
|00003070| 4e 75 4a 46 66 2e 61 ae | a8 96 a8 da 08 d3 00 07 |NuJFf.a.|........|
|00003080| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 0b 00 00 |.......M|onaco...|
|00003090| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000030a0| 00 16 00 00 00 46 00 00 | cc 24 02 94 00 00 00 1c |.....F..|.$......|
|000030b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000030c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 d7 d8 |........|........|
|000030d0| 03 ec ff ff 00 00 00 0e | 00 00 d7 f0 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+